/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / tar-mode.elc.z / tar-mode.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6b 77 7a 68 40 70 73 |piled by| kwzh@ps|
|00000020| 69 6c 6f 63 69 6e 2e 67 | 6e 75 2e 61 69 2e 6d 69 |ilocin.g|nu.ai.mi|
|00000030| 74 2e 65 64 75 20 6f 6e | 20 53 75 6e 20 4a 75 6c |t.edu on| Sun Jul|
|00000040| 20 20 37 20 32 30 3a 30 | 33 3a 33 34 20 31 39 39 |  7 20:0|3:34 199|
|00000050| 36 0a 3b 3b 3b 20 66 72 | 6f 6d 20 66 69 6c 65 20 |6.;;; fr|om file |
|00000060| 2f 67 64 2f 67 6e 75 2f | 65 6d 61 63 73 2f 31 39 |/gd/gnu/|emacs/19|
|00000070| 2e 30 2f 6c 69 73 70 2f | 74 61 72 2d 6d 6f 64 65 |.0/lisp/|tar-mode|
|00000080| 2e 65 6c 0a 3b 3b 3b 20 | 65 6d 61 63 73 20 76 65 |.el.;;; |emacs ve|
|00000090| 72 73 69 6f 6e 20 31 39 | 2e 33 31 2e 39 31 2e 31 |rsion 19|.31.91.1|
|000000a0| 2e 0a 3b 3b 3b 20 62 79 | 74 65 63 6f 6d 70 20 76 |..;;; by|tecomp v|
|000000b0| 65 72 73 69 6f 6e 20 46 | 53 46 20 32 2e 31 30 0a |ersion F|SF 2.10.|
|000000c0| 3b 3b 3b 20 6f 70 74 69 | 6d 69 7a 61 74 69 6f 6e |;;; opti|mization|
|000000d0| 20 69 73 20 6f 6e 2e 0a | 3b 3b 3b 20 74 68 69 73 | is on..|;;; this|
|000000e0| 20 66 69 6c 65 20 75 73 | 65 73 20 6f 70 63 6f 64 | file us|es opcod|
|000000f0| 65 73 20 77 68 69 63 68 | 20 64 6f 20 6e 6f 74 20 |es which| do not |
|00000100| 65 78 69 73 74 20 69 6e | 20 45 6d 61 63 73 20 31 |exist in| Emacs 1|
|00000110| 38 2e 0a 0a 28 69 66 20 | 28 61 6e 64 20 28 62 6f |8...(if |(and (bo|
|00000120| 75 6e 64 70 20 27 65 6d | 61 63 73 2d 76 65 72 73 |undp 'em|acs-vers|
|00000130| 69 6f 6e 29 0a 09 20 28 | 6f 72 20 28 61 6e 64 20 |ion).. (|or (and |
|00000140| 28 62 6f 75 6e 64 70 20 | 27 65 70 6f 63 68 3a 3a |(boundp |'epoch::|
|00000150| 76 65 72 73 69 6f 6e 29 | 20 65 70 6f 63 68 3a 3a |version)| epoch::|
|00000160| 76 65 72 73 69 6f 6e 29 | 0a 09 20 20 20 20 20 28 |version)|..     (|
|00000170| 73 74 72 69 6e 67 2d 6c | 65 73 73 70 20 65 6d 61 |string-l|essp ema|
|00000180| 63 73 2d 76 65 72 73 69 | 6f 6e 20 22 31 39 2e 32 |cs-versi|on "19.2|
|00000190| 39 22 29 29 29 0a 20 20 | 20 20 28 65 72 72 6f 72 |9"))).  |  (error|
|000001a0| 20 22 60 74 61 72 2d 6d | 6f 64 65 2e 65 6c 27 20 | "`tar-m|ode.el' |
|000001b0| 77 61 73 20 63 6f 6d 70 | 69 6c 65 64 20 66 6f 72 |was comp|iled for|
|000001c0| 20 45 6d 61 63 73 20 31 | 39 2e 32 39 20 6f 72 20 | Emacs 1|9.29 or |
|000001d0| 6c 61 74 65 72 22 29 29 | 0a 0a 0a 23 40 35 32 31 |later"))|...#@521|
|000001e0| 20 2a 54 68 65 20 62 6c | 6f 63 6b 73 69 7a 65 20 | *The bl|ocksize |
|000001f0| 6f 66 20 74 61 72 20 66 | 69 6c 65 73 20 77 72 69 |of tar f|iles wri|
|00000200| 74 74 65 6e 20 62 79 20 | 45 6d 61 63 73 2c 20 6f |tten by |Emacs, o|
|00000210| 72 20 6e 69 6c 2c 20 6d | 65 61 6e 69 6e 67 20 64 |r nil, m|eaning d|
|00000220| 6f 6e 27 74 20 63 61 72 | 65 2e 0a 54 68 65 20 62 |on't car|e..The b|
|00000230| 6c 6f 63 6b 73 69 7a 65 | 20 6f 66 20 61 20 74 61 |locksize| of a ta|
|00000240| 72 20 66 69 6c 65 20 69 | 73 20 6e 6f 74 20 72 65 |r file i|s not re|
|00000250| 61 6c 6c 79 20 74 68 65 | 20 73 69 7a 65 20 6f 66 |ally the| size of|
|00000260| 20 74 68 65 20 62 6c 6f | 63 6b 73 3b 20 72 61 74 | the blo|cks; rat|
|00000270| 68 65 72 2c 20 69 74 20 | 69 73 0a 74 68 65 20 6e |her, it |is.the n|
|00000280| 75 6d 62 65 72 20 6f 66 | 20 62 6c 6f 63 6b 73 20 |umber of| blocks |
|00000290| 77 72 69 74 74 65 6e 20 | 77 69 74 68 20 6f 6e 65 |written |with one|
|000002a0| 20 73 79 73 74 65 6d 20 | 63 61 6c 6c 2e 20 20 57 | system |call.  W|
|000002b0| 68 65 6e 20 74 61 72 72 | 69 6e 67 20 74 6f 20 61 |hen tarr|ing to a|
|000002c0| 20 74 61 70 65 2c 20 0a | 74 68 69 73 20 69 73 20 | tape, .|this is |
|000002d0| 74 68 65 20 73 69 7a 65 | 20 6f 66 20 74 68 65 20 |the size| of the |
|000002e0| 2a 74 61 70 65 2a 20 62 | 6c 6f 63 6b 73 2c 20 62 |*tape* b|locks, b|
|000002f0| 75 74 20 77 68 65 6e 20 | 77 72 69 74 69 6e 67 20 |ut when |writing |
|00000300| 74 6f 20 61 20 66 69 6c | 65 2c 20 69 74 20 64 6f |to a fil|e, it do|
|00000310| 65 73 6e 27 74 0a 6d 61 | 74 74 65 72 20 6d 75 63 |esn't.ma|tter muc|
|00000320| 68 2e 20 20 54 68 65 20 | 6f 6e 6c 79 20 6e 6f 74 |h.  The |only not|
|00000330| 69 63 65 61 62 6c 65 20 | 64 69 66 66 65 72 65 6e |iceable |differen|
|00000340| 63 65 20 69 73 20 74 68 | 61 74 20 69 66 20 61 20 |ce is th|at if a |
|00000350| 74 61 72 20 66 69 6c 65 | 20 64 6f 65 73 20 6e 6f |tar file| does no|
|00000360| 74 0a 68 61 76 65 20 61 | 20 62 6c 6f 63 6b 73 69 |t.have a| blocksi|
|00000370| 7a 65 20 6f 66 20 32 30 | 2c 20 74 61 72 20 77 69 |ze of 20|, tar wi|
|00000380| 6c 6c 20 74 65 6c 6c 20 | 79 6f 75 20 74 68 61 74 |ll tell |you that|
|00000390| 3b 20 61 6c 6c 20 74 68 | 69 73 20 72 65 61 6c 6c |; all th|is reall|
|000003a0| 79 20 63 6f 6e 74 72 6f | 6c 73 20 69 73 0a 68 6f |y contro|ls is.ho|
|000003b0| 77 20 6d 61 6e 79 20 6e | 75 6c 6c 20 70 61 64 64 |w many n|ull padd|
|000003c0| 69 6e 67 20 62 79 74 65 | 73 20 67 6f 20 6f 6e 20 |ing byte|s go on |
|000003d0| 74 68 65 20 65 6e 64 20 | 6f 66 20 74 68 65 20 74 |the end |of the t|
|000003e0| 61 72 20 66 69 6c 65 2e | 1f 0a 28 64 65 66 76 61 |ar file.|..(defva|
|000003f0| 72 20 74 61 72 2d 61 6e | 61 6c 2d 62 6c 6f 63 6b |r tar-an|al-block|
|00000400| 73 69 7a 65 20 32 30 20 | 28 23 24 20 2e 20 2d 34 |size 20 |(#$ . -4|
|00000410| 38 31 29 29 0a 23 40 34 | 37 39 20 2a 4e 6f 6e 2d |81)).#@4|79 *Non-|
|00000420| 6e 69 6c 20 6d 65 61 6e | 73 20 74 61 72 2d 6d 6f |nil mean|s tar-mo|
|00000430| 64 65 20 73 68 6f 75 6c | 64 20 70 6c 61 79 20 66 |de shoul|d play f|
|00000440| 61 73 74 20 61 6e 64 20 | 6c 6f 6f 73 65 20 77 69 |ast and |loose wi|
|00000450| 74 68 20 73 75 62 2d 66 | 69 6c 65 20 64 61 74 65 |th sub-f|ile date|
|00000460| 73 74 61 6d 70 73 2e 0a | 49 66 20 74 68 69 73 20 |stamps..|If this |
|00000470| 69 73 20 74 72 75 65 2c | 20 74 68 65 6e 20 65 64 |is true,| then ed|
|00000480| 69 74 69 6e 67 20 61 6e | 64 20 73 61 76 69 6e 67 |iting an|d saving|
|00000490| 20 61 20 74 61 72 20 66 | 69 6c 65 20 65 6e 74 72 | a tar f|ile entr|
|000004a0| 79 20 62 61 63 6b 20 69 | 6e 74 6f 20 69 74 73 0a |y back i|nto its.|
|000004b0| 74 61 72 20 66 69 6c 65 | 20 77 69 6c 6c 20 75 70 |tar file| will up|
|000004c0| 64 61 74 65 20 69 74 73 | 20 64 61 74 65 73 74 61 |date its| datesta|
|000004d0| 6d 70 2e 20 20 49 66 20 | 66 61 6c 73 65 2c 20 74 |mp.  If |false, t|
|000004e0| 68 65 20 64 61 74 65 73 | 74 61 6d 70 20 69 73 20 |he dates|tamp is |
|000004f0| 75 6e 63 68 61 6e 67 65 | 64 2e 0a 59 6f 75 20 6d |unchange|d..You m|
|00000500| 61 79 20 6f 72 20 6d 61 | 79 20 6e 6f 74 20 77 61 |ay or ma|y not wa|
|00000510| 6e 74 20 74 68 69 73 20 | 2d 20 69 74 20 69 73 20 |nt this |- it is |
|00000520| 67 6f 6f 64 20 69 6e 20 | 74 68 61 74 20 79 6f 75 |good in |that you|
|00000530| 20 63 61 6e 20 74 65 6c | 6c 20 77 68 65 6e 20 61 | can tel|l when a|
|00000540| 20 66 69 6c 65 0a 69 6e | 20 61 20 74 61 72 20 61 | file.in| a tar a|
|00000550| 72 63 68 69 76 65 20 68 | 61 73 20 62 65 65 6e 20 |rchive h|as been |
|00000560| 63 68 61 6e 67 65 64 2c | 20 62 75 74 20 69 74 20 |changed,| but it |
|00000570| 69 73 20 62 61 64 20 66 | 6f 72 20 74 68 65 20 73 |is bad f|or the s|
|00000580| 61 6d 65 20 72 65 61 73 | 6f 6e 20 74 68 61 74 0a |ame reas|on that.|
|00000590| 65 64 69 74 69 6e 67 20 | 61 20 66 69 6c 65 20 69 |editing |a file i|
|000005a0| 6e 20 74 68 65 20 74 61 | 72 20 61 72 63 68 69 76 |n the ta|r archiv|
|000005b0| 65 20 61 74 20 61 6c 6c | 20 69 73 20 62 61 64 20 |e at all| is bad |
|000005c0| 2d 20 74 68 65 20 63 68 | 61 6e 67 65 64 20 76 65 |- the ch|anged ve|
|000005d0| 72 73 69 6f 6e 20 6f 66 | 20 0a 74 68 65 20 66 69 |rsion of| .the fi|
|000005e0| 6c 65 20 6e 65 76 65 72 | 20 65 78 69 73 74 73 20 |le never| exists |
|000005f0| 6f 6e 20 64 69 73 6b 2e | 1f 0a 28 64 65 66 76 61 |on disk.|..(defva|
|00000600| 72 20 74 61 72 2d 75 70 | 64 61 74 65 2d 64 61 74 |r tar-up|date-dat|
|00000610| 65 73 74 61 6d 70 20 6e | 69 6c 20 28 23 24 20 2e |estamp n|il (#$ .|
|00000620| 20 2d 31 30 35 31 29 29 | 0a 23 40 31 34 34 20 2a | -1051))|.#@144 *|
|00000630| 4e 6f 6e 2d 6e 69 6c 20 | 6d 65 61 6e 73 20 54 61 |Non-nil |means Ta|
|00000640| 72 20 6d 6f 64 65 20 73 | 68 6f 75 6c 64 20 73 68 |r mode s|hould sh|
|00000650| 6f 77 20 74 68 65 20 64 | 61 74 65 2f 74 69 6d 65 |ow the d|ate/time|
|00000660| 20 6f 66 20 65 61 63 68 | 20 73 75 62 66 69 6c 65 | of each| subfile|
|00000670| 2e 0a 54 68 69 73 20 69 | 6e 66 6f 72 6d 61 74 69 |..This i|nformati|
|00000680| 6f 6e 20 69 73 20 75 73 | 65 66 75 6c 2c 20 62 75 |on is us|eful, bu|
|00000690| 74 20 69 74 20 74 61 6b | 65 73 20 73 63 72 65 65 |t it tak|es scree|
|000006a0| 6e 20 73 70 61 63 65 20 | 61 77 61 79 20 66 72 6f |n space |away fro|
|000006b0| 6d 20 66 69 6c 65 20 6e | 61 6d 65 73 2e 1f 0a 28 |m file n|ames...(|
|000006c0| 64 65 66 76 61 72 20 74 | 61 72 2d 6d 6f 64 65 2d |defvar t|ar-mode-|
|000006d0| 73 68 6f 77 2d 64 61 74 | 65 20 6e 69 6c 20 28 23 |show-dat|e nil (#|
|000006e0| 24 20 2e 20 2d 31 35 38 | 33 29 29 0a 28 62 79 74 |$ . -158|3)).(byt|
|000006f0| 65 2d 63 6f 64 65 20 22 | c0 c1 21 84 08 00 c2 11 |e-code "|..!.....|
|00000700| c1 0b 42 13 c0 c4 21 84 | 14 00 c2 14 c4 0b 42 13 |..B...!.|......B.|
|00000710| c0 c5 21 84 20 00 c2 15 | c5 0b 42 13 c0 c6 21 84 |..!. ...|..B...!.|
|00000720| 2d 00 c2 16 06 c6 0b 42 | 13 c0 c7 21 84 3a 00 c2 |-......B|...!.:..|
|00000730| 16 07 c7 0b 42 13 c8 c1 | c9 ca 23 88 c8 c4 c9 ca |....B...|..#.....|
|00000740| 23 88 c8 c5 c9 ca 23 88 | c8 c6 c9 ca 23 87 22 20 |#.....#.|....#." |
|00000750| 5b 62 6f 75 6e 64 70 20 | 74 61 72 2d 70 61 72 73 |[boundp |tar-pars|
|00000760| 65 2d 69 6e 66 6f 20 6e | 69 6c 20 63 75 72 72 65 |e-info n|il curre|
|00000770| 6e 74 2d 6c 6f 61 64 2d | 6c 69 73 74 20 74 61 72 |nt-load-|list tar|
|00000780| 2d 68 65 61 64 65 72 2d | 6f 66 66 73 65 74 20 74 |-header-|offset t|
|00000790| 61 72 2d 73 75 70 65 72 | 69 6f 72 2d 62 75 66 66 |ar-super|ior-buff|
|000007a0| 65 72 20 74 61 72 2d 73 | 75 70 65 72 69 6f 72 2d |er tar-s|uperior-|
|000007b0| 64 65 73 63 72 69 70 74 | 6f 72 20 74 61 72 2d 73 |descript|or tar-s|
|000007c0| 75 62 66 69 6c 65 2d 6d | 6f 64 65 20 70 75 74 20 |ubfile-m|ode put |
|000007d0| 70 65 72 6d 61 6e 65 6e | 74 2d 6c 6f 63 61 6c 20 |permanen|t-local |
|000007e0| 74 5d 20 34 29 0a 23 40 | 34 39 20 41 20 6d 69 6e |t] 4).#@|49 A min|
|000007f0| 64 2d 6e 75 6d 62 69 6e | 67 6c 79 20 73 69 6d 70 |d-numbin|gly simp|
|00000800| 6c 65 20 69 6d 70 6c 65 | 6d 65 6e 74 61 74 69 6f |le imple|mentatio|
|00000810| 6e 20 6f 66 20 73 65 74 | 66 2e 1f 0a 28 64 65 66 |n of set|f...(def|
|00000820| 61 6c 69 61 73 20 27 74 | 61 72 2d 73 65 74 66 20 |alias 't|ar-setf |
|00000830| 27 28 6d 61 63 72 6f 20 | 2e 20 23 5b 28 66 6f 72 |'(macro |. #[(for|
|00000840| 6d 20 76 61 6c 29 20 22 | c0 09 c2 c3 21 85 09 00 |m val) "|....!...|
|00000850| 0b 5c 22 89 1c 39 83 18 | 00 c5 5c 66 0e 06 45 82 |.\"..9..|..\f..E.|
|00000860| 5e 00 5c 66 3a 84 24 00 | c7 c8 09 5c 22 82 5e 00 |^.\f:.$.|...\".^.|
|00000870| 5c 66 40 c9 3d 83 38 00 | ca 5c 66 41 40 cb 5c 66 |\f@.=.8.|.\fA@.\f|
|00000880| 38 0e 06 46 82 5e 00 5c | 66 40 cc 3d 83 49 00 cd |8..F.^.\|f@.=.I..|
|00000890| 5c 66 41 40 0e 06 45 82 | 5e 00 5c 66 40 ce 3d 83 |\fA@..E.|^.\f@.=.|
|000008a0| 5a 00 cf 5c 66 41 40 0e | 06 45 82 5e 00 c7 d0 09 |Z..\fA@.|.E.^....|
|000008b0| 5c 22 29 87 22 20 5b 6d | 61 63 72 6f 65 78 70 61 |\")." [m|acroexpa|
|000008c0| 6e 64 20 66 6f 72 6d 20 | 62 6f 75 6e 64 70 20 62 |nd form |boundp b|
|000008d0| 79 74 65 2d 63 6f 6d 70 | 69 6c 65 2d 6d 61 63 72 |yte-comp|ile-macr|
|000008e0| 6f 2d 65 6e 76 69 72 6f | 6e 6d 65 6e 74 20 6d 66 |o-enviro|nment mf|
|000008f0| 6f 72 6d 20 73 65 74 71 | 20 76 61 6c 20 65 72 72 |orm setq| val err|
|00000900| 6f 72 20 22 63 61 6e 27 | 74 20 73 65 74 66 20 25 |or "can'|t setf %|
|00000910| 73 22 20 61 72 65 66 20 | 61 73 65 74 20 32 20 63 |s" aref |aset 2 c|
|00000920| 61 72 20 73 65 74 63 61 | 72 20 63 64 72 20 73 65 |ar setca|r cdr se|
|00000930| 74 63 64 72 20 22 64 6f | 6e 27 74 20 6b 6e 6f 77 |tcdr "do|n't know|
|00000940| 20 68 6f 77 20 74 6f 20 | 73 65 74 66 20 25 73 22 | how to |setf %s"|
|00000950| 5d 20 35 20 28 23 24 20 | 2e 20 32 30 32 37 29 5d |] 5 (#$ |. 2027)]|
|00000960| 29 29 0a 23 40 37 33 20 | 73 79 6e 74 61 78 3a 20 |)).#@73 |syntax: |
|00000970| 28 64 6f 6c 69 73 74 20 | 28 76 61 72 2d 6e 61 6d |(dolist |(var-nam|
|00000980| 65 20 6c 69 73 74 2d 65 | 78 70 72 20 26 6f 70 74 |e list-e|xpr &opt|
|00000990| 69 6f 6e 61 6c 20 72 65 | 74 75 72 6e 2d 76 61 6c |ional re|turn-val|
|000009a0| 75 65 29 20 26 62 6f 64 | 79 20 62 6f 64 79 29 1f |ue) &bod|y body).|
|000009b0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 74 61 72 2d |.(defali|as 'tar-|
|000009c0| 64 6f 6c 69 73 74 20 27 | 28 6d 61 63 72 6f 20 2e |dolist '|(macro .|
|000009d0| 20 23 5b 28 63 6f 6e 74 | 72 6f 6c 20 26 72 65 73 | #[(cont|rol &res|
|000009e0| 74 20 62 6f 64 79 29 20 | 22 08 40 08 41 40 08 41 |t body) |".@.A@.A|
|000009f0| 41 40 19 1a 1b c4 c5 5c | 6e 44 43 c6 c5 c4 0b c7 |A@.....\|nDC.....|
|00000a00| 44 43 c8 0e 09 ca c5 cb | c5 44 45 43 5c 22 42 42 |DC......|.DEC\"BB|
|00000a10| 45 09 46 2b 87 22 20 5b | 63 6f 6e 74 72 6f 6c 20 |E.F+." [|control |
|00000a20| 76 61 6c 20 69 6e 69 74 | 20 76 61 72 20 6c 65 74 |val init| var let|
|00000a30| 20 5f 64 6f 6c 69 73 74 | 5f 69 74 65 72 61 74 6f | _dolist|_iterato|
|00000a40| 72 5f 20 77 68 69 6c 65 | 20 28 63 61 72 20 5f 64 |r_ while| (car _d|
|00000a50| 6f 6c 69 73 74 5f 69 74 | 65 72 61 74 6f 72 5f 29 |olist_it|erator_)|
|00000a60| 20 61 70 70 65 6e 64 20 | 62 6f 64 79 20 73 65 74 | append |body set|
|00000a70| 71 20 63 64 72 5d 20 31 | 32 20 28 23 24 20 2e 20 |q cdr] 1|2 (#$ . |
|00000a80| 32 34 30 38 29 5d 29 29 | 0a 23 40 37 34 20 73 79 |2408)]))|.#@74 sy|
|00000a90| 6e 74 61 78 3a 20 28 64 | 6f 6c 69 73 74 20 28 76 |ntax: (d|olist (v|
|00000aa0| 61 72 2d 6e 61 6d 65 20 | 63 6f 75 6e 74 2d 65 78 |ar-name |count-ex|
|00000ab0| 70 72 20 26 6f 70 74 69 | 6f 6e 61 6c 20 72 65 74 |pr &opti|onal ret|
|00000ac0| 75 72 6e 2d 76 61 6c 75 | 65 29 20 26 62 6f 64 79 |urn-valu|e) &body|
|00000ad0| 20 62 6f 64 79 29 1f 0a | 28 64 65 66 61 6c 69 61 | body)..|(defalia|
|00000ae0| 73 20 27 74 61 72 2d 64 | 6f 74 69 6d 65 73 20 27 |s 'tar-d|otimes '|
|00000af0| 28 6d 61 63 72 6f 20 2e | 20 23 5b 28 63 6f 6e 74 |(macro .| #[(cont|
|00000b00| 72 6f 6c 20 26 72 65 73 | 74 20 62 6f 64 79 29 20 |rol &res|t body) |
|00000b10| 22 08 40 08 41 40 08 41 | 41 40 19 1a 1b c4 c5 5c |".@.A@.A|A@.....\|
|00000b20| 6e 44 0b c6 44 44 c7 c8 | 0b c5 45 c9 0e 5c 6e cb |nD..DD..|..E..\n.|
|00000b30| 0b cc 0b 44 45 43 5c 22 | 42 42 09 46 2b 87 22 20 |...DEC\"|BB.F+." |
|00000b40| 5b 63 6f 6e 74 72 6f 6c | 20 76 61 6c 20 6e 20 76 |[control| val n v|
|00000b50| 61 72 20 6c 65 74 20 5f | 64 6f 74 69 6d 65 73 5f |ar let _|dotimes_|
|00000b60| 65 6e 64 5f 20 30 20 77 | 68 69 6c 65 20 3c 20 61 |end_ 0 w|hile < a|
|00000b70| 70 70 65 6e 64 20 62 6f | 64 79 20 73 65 74 71 20 |ppend bo|dy setq |
|00000b80| 31 2b 5d 20 31 30 20 28 | 23 24 20 2e 20 32 37 30 |1+] 10 (|#$ . 270|
|00000b90| 32 29 5d 29 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |2)])).(d|efalias |
|00000ba0| 27 6d 61 6b 65 2d 74 61 | 72 2d 68 65 61 64 65 72 |'make-ta|r-header|
|00000bb0| 20 27 28 6d 61 63 72 6f | 20 2e 20 23 5b 28 6e 61 | '(macro| . #[(na|
|00000bc0| 6d 65 20 6d 6f 64 65 20 | 75 69 64 20 67 69 74 20 |me mode |uid git |
|00000bd0| 73 69 7a 65 20 64 61 74 | 65 20 63 6b 20 6c 74 20 |size dat|e ck lt |
|00000be0| 6c 6e 20 6d 61 67 69 63 | 20 75 6e 61 6d 65 20 67 |ln magic| uname g|
|00000bf0| 6e 61 6d 65 20 64 65 76 | 6d 61 6a 20 64 65 76 6d |name dev|maj devm|
|00000c00| 69 6e 29 20 22 c0 09 5c | 6e 0b 5c 66 0d 0e 06 0e |in) "..\|n.\f....|
|00000c10| 07 0e 08 0e 09 0e 5c 6e | 0e 0b 0e 5c 66 0e 0d 0e |......\n|...\f...|
|00000c20| 0e af 0f 87 22 20 5b 76 | 65 63 74 6f 72 20 6e 61 |...." [v|ector na|
|00000c30| 6d 65 20 6d 6f 64 65 20 | 75 69 64 20 67 69 74 20 |me mode |uid git |
|00000c40| 73 69 7a 65 20 64 61 74 | 65 20 63 6b 20 6c 74 20 |size dat|e ck lt |
|00000c50| 6c 6e 20 6d 61 67 69 63 | 20 75 6e 61 6d 65 20 67 |ln magic| uname g|
|00000c60| 6e 61 6d 65 20 64 65 76 | 6d 61 6a 20 64 65 76 6d |name dev|maj devm|
|00000c70| 69 6e 5d 20 31 35 5d 29 | 29 0a 28 64 65 66 61 6c |in] 15])|).(defal|
|00000c80| 69 61 73 20 27 74 61 72 | 2d 68 65 61 64 65 72 2d |ias 'tar|-header-|
|00000c90| 6e 61 6d 65 20 27 28 6d | 61 63 72 6f 20 2e 20 23 |name '(m|acro . #|
|00000ca0| 5b 28 78 29 20 22 c0 09 | c2 45 87 22 20 5b 61 72 |[(x) "..|.E." [ar|
|00000cb0| 65 66 20 78 20 30 5d 20 | 33 5d 29 29 0a 28 64 65 |ef x 0] |3])).(de|
|00000cc0| 66 61 6c 69 61 73 20 27 | 74 61 72 2d 68 65 61 64 |falias '|tar-head|
|00000cd0| 65 72 2d 6d 6f 64 65 20 | 27 28 6d 61 63 72 6f 20 |er-mode |'(macro |
|00000ce0| 2e 20 23 5b 28 78 29 20 | 22 c0 09 c2 45 87 22 20 |. #[(x) |"...E." |
|00000cf0| 5b 61 72 65 66 20 78 20 | 31 5d 20 33 5d 29 29 0a |[aref x |1] 3])).|
|00000d00| 28 64 65 66 61 6c 69 61 | 73 20 27 74 61 72 2d 68 |(defalia|s 'tar-h|
|00000d10| 65 61 64 65 72 2d 75 69 | 64 20 27 28 6d 61 63 72 |eader-ui|d '(macr|
|00000d20| 6f 20 2e 20 23 5b 28 78 | 29 20 22 c0 09 c2 45 87 |o . #[(x|) "...E.|
|00000d30| 22 20 5b 61 72 65 66 20 | 78 20 32 5d 20 33 5d 29 |" [aref |x 2] 3])|
|00000d40| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 74 61 72 |).(defal|ias 'tar|
|00000d50| 2d 68 65 61 64 65 72 2d | 67 69 64 20 27 28 6d 61 |-header-|gid '(ma|
|00000d60| 63 72 6f 20 2e 20 23 5b | 28 78 29 20 22 c0 09 c2 |cro . #[|(x) "...|
|00000d70| 45 87 22 20 5b 61 72 65 | 66 20 78 20 33 5d 20 33 |E." [are|f x 3] 3|
|00000d80| 5d 29 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 74 |])).(def|alias 't|
|00000d90| 61 72 2d 68 65 61 64 65 | 72 2d 73 69 7a 65 20 27 |ar-heade|r-size '|
|00000da0| 28 6d 61 63 72 6f 20 2e | 20 23 5b 28 78 29 20 22 |(macro .| #[(x) "|
|00000db0| c0 09 c2 45 87 22 20 5b | 61 72 65 66 20 78 20 34 |...E." [|aref x 4|
|00000dc0| 5d 20 33 5d 29 29 0a 28 | 64 65 66 61 6c 69 61 73 |] 3])).(|defalias|
|00000dd0| 20 27 74 61 72 2d 68 65 | 61 64 65 72 2d 64 61 74 | 'tar-he|ader-dat|
|00000de0| 65 20 27 28 6d 61 63 72 | 6f 20 2e 20 23 5b 28 78 |e '(macr|o . #[(x|
|00000df0| 29 20 22 c0 09 c2 45 87 | 22 20 5b 61 72 65 66 20 |) "...E.|" [aref |
|00000e00| 78 20 35 5d 20 33 5d 29 | 29 0a 28 64 65 66 61 6c |x 5] 3])|).(defal|
|00000e10| 69 61 73 20 27 74 61 72 | 2d 68 65 61 64 65 72 2d |ias 'tar|-header-|
|00000e20| 63 68 65 63 6b 73 75 6d | 20 27 28 6d 61 63 72 6f |checksum| '(macro|
|00000e30| 20 2e 20 23 5b 28 78 29 | 20 22 c0 09 c2 45 87 22 | . #[(x)| "...E."|
|00000e40| 20 5b 61 72 65 66 20 78 | 20 36 5d 20 33 5d 29 29 | [aref x| 6] 3]))|
|00000e50| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 74 61 72 2d |.(defali|as 'tar-|
|00000e60| 68 65 61 64 65 72 2d 6c | 69 6e 6b 2d 74 79 70 65 |header-l|ink-type|
|00000e70| 20 27 28 6d 61 63 72 6f | 20 2e 20 23 5b 28 78 29 | '(macro| . #[(x)|
|00000e80| 20 22 c0 09 c2 45 87 22 | 20 5b 61 72 65 66 20 78 | "...E."| [aref x|
|00000e90| 20 37 5d 20 33 5d 29 29 | 0a 28 64 65 66 61 6c 69 | 7] 3]))|.(defali|
|00000ea0| 61 73 20 27 74 61 72 2d | 68 65 61 64 65 72 2d 6c |as 'tar-|header-l|
|00000eb0| 69 6e 6b 2d 6e 61 6d 65 | 20 27 28 6d 61 63 72 6f |ink-name| '(macro|
|00000ec0| 20 2e 20 23 5b 28 78 29 | 20 22 c0 09 c2 45 87 22 | . #[(x)| "...E."|
|00000ed0| 20 5b 61 72 65 66 20 78 | 20 38 5d 20 33 5d 29 29 | [aref x| 8] 3]))|
|00000ee0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 74 61 72 2d |.(defali|as 'tar-|
|00000ef0| 68 65 61 64 65 72 2d 6d | 61 67 69 63 20 27 28 6d |header-m|agic '(m|
|00000f00| 61 63 72 6f 20 2e 20 23 | 5b 28 78 29 20 22 c0 09 |acro . #|[(x) "..|
|00000f10| c2 45 87 22 20 5b 61 72 | 65 66 20 78 20 39 5d 20 |.E." [ar|ef x 9] |
|00000f20| 33 5d 29 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |3])).(de|falias '|
|00000f30| 74 61 72 2d 68 65 61 64 | 65 72 2d 75 6e 61 6d 65 |tar-head|er-uname|
|00000f40| 20 27 28 6d 61 63 72 6f | 20 2e 20 23 5b 28 78 29 | '(macro| . #[(x)|
|00000f50| 20 22 c0 09 c2 45 87 22 | 20 5b 61 72 65 66 20 78 | "...E."| [aref x|
|00000f60| 20 31 30 5d 20 33 5d 29 | 29 0a 28 64 65 66 61 6c | 10] 3])|).(defal|
|00000f70| 69 61 73 20 27 74 61 72 | 2d 68 65 61 64 65 72 2d |ias 'tar|-header-|
|00000f80| 67 6e 61 6d 65 20 27 28 | 6d 61 63 72 6f 20 2e 20 |gname '(|macro . |
|00000f90| 23 5b 28 78 29 20 22 c0 | 09 c2 45 87 22 20 5b 61 |#[(x) ".|..E." [a|
|00000fa0| 72 65 66 20 78 20 31 31 | 5d 20 33 5d 29 29 0a 28 |ref x 11|] 3])).(|
|00000fb0| 64 65 66 61 6c 69 61 73 | 20 27 74 61 72 2d 68 65 |defalias| 'tar-he|
|00000fc0| 61 64 65 72 2d 64 6d 61 | 6a 20 27 28 6d 61 63 72 |ader-dma|j '(macr|
|00000fd0| 6f 20 2e 20 23 5b 28 78 | 29 20 22 c0 09 c2 45 87 |o . #[(x|) "...E.|
|00000fe0| 22 20 5b 61 72 65 66 20 | 78 20 31 32 5d 20 33 5d |" [aref |x 12] 3]|
|00000ff0| 29 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 74 61 |)).(defa|lias 'ta|
|00001000| 72 2d 68 65 61 64 65 72 | 2d 64 6d 69 6e 20 27 28 |r-header|-dmin '(|
|00001010| 6d 61 63 72 6f 20 2e 20 | 23 5b 28 78 29 20 22 c0 |macro . |#[(x) ".|
|00001020| 09 c2 45 87 22 20 5b 61 | 72 65 66 20 78 20 31 33 |..E." [a|ref x 13|
|00001030| 5d 20 33 5d 29 29 0a 28 | 64 65 66 61 6c 69 61 73 |] 3])).(|defalias|
|00001040| 20 27 6d 61 6b 65 2d 74 | 61 72 2d 64 65 73 63 20 | 'make-t|ar-desc |
|00001050| 27 28 6d 61 63 72 6f 20 | 2e 20 23 5b 28 64 61 74 |'(macro |. #[(dat|
|00001060| 61 2d 73 74 61 72 74 20 | 74 6f 6b 65 6e 73 29 20 |a-start |tokens) |
|00001070| 22 c0 09 5c 6e 45 87 22 | 20 5b 63 6f 6e 73 20 64 |"..\nE."| [cons d|
|00001080| 61 74 61 2d 73 74 61 72 | 74 20 74 6f 6b 65 6e 73 |ata-star|t tokens|
|00001090| 5d 20 33 5d 29 29 0a 28 | 64 65 66 61 6c 69 61 73 |] 3])).(|defalias|
|000010a0| 20 27 74 61 72 2d 64 65 | 73 63 2d 64 61 74 61 2d | 'tar-de|sc-data-|
|000010b0| 73 74 61 72 74 20 27 28 | 6d 61 63 72 6f 20 2e 20 |start '(|macro . |
|000010c0| 23 5b 28 78 29 20 22 c0 | 09 44 87 22 20 5b 63 61 |#[(x) ".|.D." [ca|
|000010d0| 72 20 78 5d 20 32 5d 29 | 29 0a 28 64 65 66 61 6c |r x] 2])|).(defal|
|000010e0| 69 61 73 20 27 74 61 72 | 2d 64 65 73 63 2d 74 6f |ias 'tar|-desc-to|
|000010f0| 6b 65 6e 73 20 27 28 6d | 61 63 72 6f 20 2e 20 23 |kens '(m|acro . #|
|00001100| 5b 28 78 29 20 22 c0 09 | 44 87 22 20 5b 63 64 72 |[(x) "..|D." [cdr|
|00001110| 20 78 5d 20 32 5d 29 29 | 0a 28 62 79 74 65 2d 63 | x] 2]))|.(byte-c|
|00001120| 6f 64 65 20 22 c0 11 c1 | 5c 6e 42 12 09 c3 5c 5c |ode "...|\nB...\\|
|00001130| 14 c4 5c 6e 42 12 5c 66 | c5 5c 5c 16 06 c6 5c 6e |..\nB.\f|.\\...\n|
|00001140| 42 12 0e 06 c5 5c 5c 16 | 07 c7 5c 6e 42 12 0e 07 |B....\\.|..\nB...|
|00001150| c5 5c 5c 16 08 c8 5c 6e | 42 12 0e 08 c9 5c 5c 16 |.\\...\n|B....\\.|
|00001160| 5c 6e ca 5c 6e 42 12 0e | 5c 6e c9 5c 5c 16 0b cb |\n.\nB..|\n.\\...|
|00001170| 5c 6e 42 12 0e 0b c5 5c | 5c 16 5c 66 cc 5c 6e 42 |\nB....\|\.\f.\nB|
|00001180| 12 0e 5c 66 cd 5c 5c 16 | 0e ce 5c 6e 42 12 0e 0e |..\f.\\.|..\nB...|
|00001190| c3 5c 5c 16 0f cf 5c 6e | 42 12 0e 0f c5 5c 5c 16 |.\\...\n|B....\\.|
|000011a0| 10 d0 5c 6e 42 12 0e 10 | d1 5c 5c 16 12 d2 5c 6e |..\nB...|.\\...\n|
|000011b0| 42 12 0e 12 d1 5c 5c 16 | 13 d3 5c 6e 42 12 0e 13 |B....\\.|..\nB...|
|000011c0| c5 5c 5c 16 14 d4 5c 6e | 42 12 0e 14 c5 5c 5c 16 |.\\...\n|B....\\.|
|000011d0| 15 d5 5c 6e 42 12 c0 87 | 22 20 5b 30 20 74 61 72 |..\nB...|" [0 tar|
|000011e0| 2d 6e 61 6d 65 2d 6f 66 | 66 73 65 74 20 63 75 72 |-name-of|fset cur|
|000011f0| 72 65 6e 74 2d 6c 6f 61 | 64 2d 6c 69 73 74 20 31 |rent-loa|d-list 1|
|00001200| 30 30 20 74 61 72 2d 6d | 6f 64 65 2d 6f 66 66 73 |00 tar-m|ode-offs|
|00001210| 65 74 20 38 20 74 61 72 | 2d 75 69 64 2d 6f 66 66 |et 8 tar|-uid-off|
|00001220| 73 65 74 20 74 61 72 2d | 67 69 64 2d 6f 66 66 73 |set tar-|gid-offs|
|00001230| 65 74 20 74 61 72 2d 73 | 69 7a 65 2d 6f 66 66 73 |et tar-s|ize-offs|
|00001240| 65 74 20 31 32 20 74 61 | 72 2d 74 69 6d 65 2d 6f |et 12 ta|r-time-o|
|00001250| 66 66 73 65 74 20 74 61 | 72 2d 63 68 6b 2d 6f 66 |ffset ta|r-chk-of|
|00001260| 66 73 65 74 20 74 61 72 | 2d 6c 69 6e 6b 70 2d 6f |fset tar|-linkp-o|
|00001270| 66 66 73 65 74 20 31 20 | 74 61 72 2d 6c 69 6e 6b |ffset 1 |tar-link|
|00001280| 2d 6f 66 66 73 65 74 20 | 74 61 72 2d 6d 61 67 69 |-offset |tar-magi|
|00001290| 63 2d 6f 66 66 73 65 74 | 20 74 61 72 2d 75 6e 61 |c-offset| tar-una|
|000012a0| 6d 65 2d 6f 66 66 73 65 | 74 20 33 32 20 74 61 72 |me-offse|t 32 tar|
|000012b0| 2d 67 6e 61 6d 65 2d 6f | 66 66 73 65 74 20 74 61 |-gname-o|ffset ta|
|000012c0| 72 2d 64 6d 61 6a 2d 6f | 66 66 73 65 74 20 74 61 |r-dmaj-o|ffset ta|
|000012d0| 72 2d 64 6d 69 6e 2d 6f | 66 66 73 65 74 20 74 61 |r-dmin-o|ffset ta|
|000012e0| 72 2d 65 6e 64 2d 6f 66 | 66 73 65 74 5d 20 32 29 |r-end-of|fset] 2)|
|000012f0| 0a 23 40 31 32 39 20 52 | 65 74 75 72 6e 20 61 20 |.#@129 R|eturn a |
|00001300| 60 74 61 72 2d 68 65 61 | 64 65 72 27 20 73 74 72 |`tar-hea|der' str|
|00001310| 75 63 74 75 72 65 2e 0a | 54 68 69 73 20 69 73 20 |ucture..|This is |
|00001320| 61 20 6c 69 73 74 20 6f | 66 20 6e 61 6d 65 2c 20 |a list o|f name, |
|00001330| 6d 6f 64 65 2c 20 75 69 | 64 2c 20 67 69 64 2c 20 |mode, ui|d, gid, |
|00001340| 73 69 7a 65 2c 20 0a 77 | 72 69 74 65 2d 64 61 74 |size, .w|rite-dat|
|00001350| 65 2c 20 63 68 65 63 6b | 73 75 6d 2c 20 6c 69 6e |e, check|sum, lin|
|00001360| 6b 2d 74 79 70 65 2c 20 | 61 6e 64 20 6c 69 6e 6b |k-type, |and link|
|00001370| 2d 6e 61 6d 65 2e 1f 0a | 28 64 65 66 61 6c 69 61 |-name...|(defalia|
|00001380| 73 20 27 74 61 72 2d 68 | 65 61 64 65 72 2d 62 6c |s 'tar-h|eader-bl|
|00001390| 6f 63 6b 2d 74 6f 6b 65 | 6e 69 7a 65 20 23 5b 28 |ock-toke|nize #[(|
|000013a0| 73 74 72 69 6e 67 29 20 | 22 08 47 c1 57 83 09 00 |string) |".G.W...|
|000013b0| c2 87 08 c3 48 c3 55 83 | 19 00 08 c4 48 c3 55 84 |....H.U.|....H.U.|
|000013c0| 27 01 0d 53 1e 06 0e 07 | 53 1e 08 0e 09 53 1e 5c |'..S....|S....S.\|
|000013d0| 6e 0e 0b 53 1e 5c 66 08 | 0e 0d 48 1e 0e 08 0e 07 |n..S.\f.|..H.....|
|000013e0| 0e 0f 53 4f 89 1e 10 d1 | 98 86 45 00 0e 10 d2 98 |..SO....|..E.....|
|000013f0| 1e 13 c2 1e 14 d5 1e 16 | d7 0e 16 08 0e 18 23 83 |........|......#.|
|00001400| 5f 00 0e 06 c3 95 53 5e | 16 06 d7 0e 16 08 0e 19 |_.....S^|........|
|00001410| 23 83 71 00 0e 08 c3 95 | 53 5e 16 08 d7 0e 16 08 |#.q.....|S^......|
|00001420| 0e 0f 23 83 83 00 0e 5c | 6e c3 95 53 5e 16 5c 6e |..#....\|n..S^.\n|
|00001430| d7 0e 16 08 0e 09 23 83 | 95 00 0e 5c 66 c3 95 53 |......#.|...\f..S|
|00001440| 5e 16 5c 66 08 0e 18 0e | 06 4f 16 14 0e 0e c3 55 |^.\f....|.O.....U|
|00001450| 86 a8 00 0e 0e da 55 3f | 85 b0 00 0e 0e da 5a 89 |......U?|......Z.|
|00001460| 16 0e 84 c1 00 d7 db 0e | 14 5c 22 83 c1 00 dc 16 |........|.\".....|
|00001470| 0e dd 0e 14 de 08 0d 0e | 1f 53 23 de 08 0e 1f 0e |........|.S#.....|
|00001480| 20 53 23 de 08 0e 20 0e | 21 53 23 de 08 0e 21 0e | S#... .|!S#...!.|
|00001490| 5c 22 53 23 e3 08 0e 5c | 22 0e 24 53 23 de 08 0e |\"S#...\|".$S#...|
|000014a0| 24 0e 0d 53 23 0e 0e 08 | 0e 19 0e 08 4f 0e 13 89 |$..S#...|....O...|
|000014b0| 85 07 01 08 0e 0f 0e 5c | 6e 4f 0e 13 85 12 01 08 |.......\|nO......|
|000014c0| 0e 09 0e 5c 66 4f de 08 | 0e 0b 0e 25 53 23 de 08 |...\fO..|...%S#..|
|000014d0| 0e 25 0e 26 53 23 26 0e | 2e 09 87 e7 87 22 20 5b |.%.&S#&.|....." [|
|000014e0| 73 74 72 69 6e 67 20 35 | 31 32 20 6e 69 6c 20 30 |string 5|12 nil 0|
|000014f0| 20 31 30 31 20 74 61 72 | 2d 6d 6f 64 65 2d 6f 66 | 101 tar|-mode-of|
|00001500| 66 73 65 74 20 6e 61 6d | 65 2d 65 6e 64 20 74 61 |fset nam|e-end ta|
|00001510| 72 2d 6d 61 67 69 63 2d | 6f 66 66 73 65 74 20 6c |r-magic-|offset l|
|00001520| 69 6e 6b 2d 65 6e 64 20 | 74 61 72 2d 67 6e 61 6d |ink-end |tar-gnam|
|00001530| 65 2d 6f 66 66 73 65 74 | 20 75 6e 61 6d 65 2d 65 |e-offset| uname-e|
|00001540| 6e 64 20 74 61 72 2d 64 | 6d 61 6a 2d 6f 66 66 73 |nd tar-d|maj-offs|
|00001550| 65 74 20 67 6e 61 6d 65 | 2d 65 6e 64 20 74 61 72 |et gname|-end tar|
|00001560| 2d 6c 69 6e 6b 70 2d 6f | 66 66 73 65 74 20 6c 69 |-linkp-o|ffset li|
|00001570| 6e 6b 2d 70 20 74 61 72 | 2d 75 6e 61 6d 65 2d 6f |nk-p tar|-uname-o|
|00001580| 66 66 73 65 74 20 6d 61 | 67 69 63 2d 73 74 72 20 |ffset ma|gic-str |
|00001590| 22 75 73 74 61 72 20 20 | 22 20 22 47 4e 55 74 61 |"ustar  |" "GNUta|
|000015a0| 72 20 22 20 75 6e 61 6d | 65 2d 76 61 6c 69 64 2d |r " unam|e-valid-|
|000015b0| 70 20 6e 61 6d 65 20 22 | 5b 5e 00 5d 2a 00 22 20 |p name "|[^.]*." |
|000015c0| 6e 75 6c 73 65 78 70 20 | 73 74 72 69 6e 67 2d 6d |nulsexp |string-m|
|000015d0| 61 74 63 68 20 74 61 72 | 2d 6e 61 6d 65 2d 6f 66 |atch tar|-name-of|
|000015e0| 66 73 65 74 20 74 61 72 | 2d 6c 69 6e 6b 2d 6f 66 |fset tar|-link-of|
|000015f0| 66 73 65 74 20 34 38 20 | 22 2f 24 22 20 35 20 76 |fset 48 |"/$" 5 v|
|00001600| 65 63 74 6f 72 20 74 61 | 72 2d 70 61 72 73 65 2d |ector ta|r-parse-|
|00001610| 6f 63 74 61 6c 2d 69 6e | 74 65 67 65 72 20 74 61 |octal-in|teger ta|
|00001620| 72 2d 75 69 64 2d 6f 66 | 66 73 65 74 20 74 61 72 |r-uid-of|fset tar|
|00001630| 2d 67 69 64 2d 6f 66 66 | 73 65 74 20 74 61 72 2d |-gid-off|set tar-|
|00001640| 73 69 7a 65 2d 6f 66 66 | 73 65 74 20 74 61 72 2d |size-off|set tar-|
|00001650| 74 69 6d 65 2d 6f 66 66 | 73 65 74 20 74 61 72 2d |time-off|set tar-|
|00001660| 70 61 72 73 65 2d 6f 63 | 74 61 6c 2d 6c 6f 6e 67 |parse-oc|tal-long|
|00001670| 2d 69 6e 74 65 67 65 72 | 20 74 61 72 2d 63 68 6b |-integer| tar-chk|
|00001680| 2d 6f 66 66 73 65 74 20 | 74 61 72 2d 64 6d 69 6e |-offset |tar-dmin|
|00001690| 2d 6f 66 66 73 65 74 20 | 74 61 72 2d 65 6e 64 2d |-offset |tar-end-|
|000016a0| 6f 66 66 73 65 74 20 65 | 6d 70 74 79 2d 74 61 72 |offset e|mpty-tar|
|000016b0| 2d 62 6c 6f 63 6b 5d 20 | 31 39 20 28 23 24 20 2e |-block] |19 (#$ .|
|000016c0| 20 34 38 35 35 29 5d 29 | 0a 28 64 65 66 61 6c 69 | 4855)])|.(defali|
|000016d0| 61 73 20 27 74 61 72 2d | 70 61 72 73 65 2d 6f 63 |as 'tar-|parse-oc|
|000016e0| 74 61 6c 2d 69 6e 74 65 | 67 65 72 20 23 5b 28 73 |tal-inte|ger #[(s|
|000016f0| 74 72 69 6e 67 20 26 6f | 70 74 69 6f 6e 61 6c 20 |tring &o|ptional |
|00001700| 73 74 61 72 74 20 65 6e | 64 29 20 22 08 84 06 00 |start en|d) "....|
|00001710| c1 10 5c 6e 84 0d 00 0b | 47 12 0b 08 48 c1 55 83 |..\n....|G...H.U.|
|00001720| 17 00 c1 87 c1 1c 08 5c | 6e 57 83 3c 00 0b 08 48 |.......\|nW.<...H|
|00001730| c5 57 83 2b 00 5c 66 82 | 34 00 5c 66 c6 5f 0b 08 |.W.+.\f.|4.\f._..|
|00001740| 48 c5 5a 5c 5c 14 08 54 | 89 10 82 1a 00 5c 66 29 |H.Z\\..T|.....\f)|
|00001750| 87 22 20 5b 73 74 61 72 | 74 20 30 20 65 6e 64 20 |." [star|t 0 end |
|00001760| 73 74 72 69 6e 67 20 6e | 20 34 38 20 38 5d 20 34 |string n| 48 8] 4|
|00001770| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 74 61 |]).(defa|lias 'ta|
|00001780| 72 2d 70 61 72 73 65 2d | 6f 63 74 61 6c 2d 6c 6f |r-parse-|octal-lo|
|00001790| 6e 67 2d 69 6e 74 65 67 | 65 72 20 23 5b 28 73 74 |ng-integ|er #[(st|
|000017a0| 72 69 6e 67 20 26 6f 70 | 74 69 6f 6e 61 6c 20 73 |ring &op|tional s|
|000017b0| 74 61 72 74 20 65 6e 64 | 29 20 22 08 84 06 00 c1 |tart end|) ".....|
|000017c0| 10 5c 6e 84 0d 00 0b 47 | 12 0b 08 48 c1 55 83 19 |.\n....G|...H.U..|
|000017d0| 00 c1 89 44 87 c1 89 1c | 1d 08 5c 6e 57 83 4a 00 |...D....|..\nW.J.|
|000017e0| 0b 08 48 c6 59 83 43 00 | 0d c7 5f 0b 08 48 c6 5a |..H.Y.C.|.._..H.Z|
|000017f0| 5c 5c 15 5c 66 c7 5f c8 | 0d c9 5c 22 5c 5c 14 ca |\\.\f._.|..\"\\..|
|00001800| 0d cb 5c 22 15 08 54 89 | 10 82 1e 00 5c 66 0d 2a |..\"..T.|....\f.*|
|00001810| 44 87 22 20 5b 73 74 61 | 72 74 20 30 20 65 6e 64 |D." [sta|rt 0 end|
|00001820| 20 73 74 72 69 6e 67 20 | 68 69 20 6c 6f 20 34 38 | string |hi lo 48|
|00001830| 20 38 20 61 73 68 20 2d | 31 36 20 6c 6f 67 61 6e | 8 ash -|16 logan|
|00001840| 64 20 36 35 35 33 35 5d | 20 35 5d 29 0a 28 64 65 |d 65535]| 5]).(de|
|00001850| 66 61 6c 69 61 73 20 27 | 74 61 72 2d 70 61 72 73 |falias '|tar-pars|
|00001860| 65 2d 6f 63 74 61 6c 2d | 69 6e 74 65 67 65 72 2d |e-octal-|integer-|
|00001870| 73 61 66 65 20 23 5b 28 | 73 74 72 69 6e 67 29 20 |safe #[(|string) |
|00001880| 22 08 47 89 19 c2 55 83 | 0d 00 c3 c4 21 88 09 c2 |".G...U.|....!...|
|00001890| 1d 1e 06 0d 0e 06 57 83 | 34 00 08 0d 48 c7 57 84 |......W.|4...H.W.|
|000018a0| 29 00 08 0d 48 c8 56 83 | 2d 00 c3 c9 21 88 0d 54 |)...H.V.|-...!..T|
|000018b0| 89 15 82 13 00 2b ca 08 | 21 87 22 20 5b 73 74 72 |.....+..|!." [str|
|000018c0| 69 6e 67 20 4c 20 30 20 | 65 72 72 6f 72 20 22 65 |ing L 0 |error "e|
|000018d0| 6d 70 74 79 20 73 74 72 | 69 6e 67 22 20 69 20 5f |mpty str|ing" i _|
|000018e0| 64 6f 74 69 6d 65 73 5f | 65 6e 64 5f 20 34 38 20 |dotimes_|end_ 48 |
|000018f0| 35 35 20 22 27 25 63 27 | 20 69 73 20 6e 6f 74 20 |55 "'%c'| is not |
|00001900| 61 6e 20 6f 63 74 61 6c | 20 64 69 67 69 74 22 20 |an octal| digit" |
|00001910| 74 61 72 2d 70 61 72 73 | 65 2d 6f 63 74 61 6c 2d |tar-pars|e-octal-|
|00001920| 69 6e 74 65 67 65 72 5d | 20 33 5d 29 0a 23 40 36 |integer]| 3]).#@6|
|00001930| 32 20 43 6f 6d 70 75 74 | 65 20 61 6e 64 20 72 65 |2 Comput|e and re|
|00001940| 74 75 72 6e 20 61 20 74 | 61 72 2d 61 63 63 65 70 |turn a t|ar-accep|
|00001950| 74 61 62 6c 65 20 63 68 | 65 63 6b 73 75 6d 20 66 |table ch|ecksum f|
|00001960| 6f 72 20 74 68 69 73 20 | 62 6c 6f 63 6b 2e 1f 0a |or this |block...|
|00001970| 28 64 65 66 61 6c 69 61 | 73 20 27 74 61 72 2d 68 |(defalia|s 'tar-h|
|00001980| 65 61 64 65 72 2d 62 6c | 6f 63 6b 2d 63 68 65 63 |eader-bl|ock-chec|
|00001990| 6b 73 75 6d 20 23 5b 28 | 73 74 72 69 6e 67 29 20 |ksum #[(|string) |
|000019a0| 22 08 89 19 c2 5c 5c 1b | c4 1d c4 1e 06 c4 09 57 |"....\\.|.......W|
|000019b0| 83 5c 22 00 0d 0e 07 0e | 06 48 5c 5c 15 0e 06 54 |.\".....|.H\\...T|
|000019c0| 89 16 06 82 5c 66 00 0b | 89 16 06 c8 57 83 3c 00 |....\f..|....W.<.|
|000019d0| 0d 0e 07 0e 06 48 5c 5c | 15 0e 06 54 89 16 06 82 |.....H\\|...T....|
|000019e0| 26 00 0d c9 5c 5c 2c 87 | 22 20 5b 74 61 72 2d 63 |&...\\,.|" [tar-c|
|000019f0| 68 6b 2d 6f 66 66 73 65 | 74 20 63 68 6b 2d 66 69 |hk-offse|t chk-fi|
|00001a00| 65 6c 64 2d 73 74 61 72 | 74 20 38 20 63 68 6b 2d |eld-star|t 8 chk-|
|00001a10| 66 69 65 6c 64 2d 65 6e | 64 20 30 20 73 75 6d 20 |field-en|d 0 sum |
|00001a20| 69 20 73 74 72 69 6e 67 | 20 35 31 32 20 32 35 36 |i string| 512 256|
|00001a30| 5d 20 34 20 28 23 24 20 | 2e 20 36 34 35 30 29 5d |] 4 (#$ |. 6450)]|
|00001a40| 29 0a 23 40 35 37 20 42 | 65 65 70 20 61 6e 64 20 |).#@57 B|eep and |
|00001a50| 70 72 69 6e 74 20 61 20 | 77 61 72 6e 69 6e 67 20 |print a |warning |
|00001a60| 69 66 20 74 68 65 20 63 | 68 65 63 6b 73 75 6d 20 |if the c|hecksum |
|00001a70| 64 6f 65 73 6e 27 74 20 | 6d 61 74 63 68 2e 1f 0a |doesn't |match...|
|00001a80| 28 64 65 66 61 6c 69 61 | 73 20 27 74 61 72 2d 68 |(defalia|s 'tar-h|
|00001a90| 65 61 64 65 72 2d 62 6c | 6f 63 6b 2d 63 68 65 63 |eader-bl|ock-chec|
|00001aa0| 6b 2d 63 68 65 63 6b 73 | 75 6d 20 23 5b 28 68 62 |k-checks|um #[(hb|
|00001ab0| 6c 6f 63 6b 20 64 65 73 | 69 72 65 64 2d 63 68 65 |lock des|ired-che|
|00001ac0| 63 6b 73 75 6d 20 66 69 | 6c 65 2d 6e 61 6d 65 29 |cksum fi|le-name)|
|00001ad0| 20 22 08 c1 5c 6e 21 55 | 3f 85 11 00 c3 20 88 c4 | "..\n!U|?.... ..|
|00001ae0| c5 0e 06 5c 22 87 22 20 | 5b 64 65 73 69 72 65 64 |...\"." |[desired|
|00001af0| 2d 63 68 65 63 6b 73 75 | 6d 20 74 61 72 2d 68 65 |-checksu|m tar-he|
|00001b00| 61 64 65 72 2d 62 6c 6f | 63 6b 2d 63 68 65 63 6b |ader-blo|ck-check|
|00001b10| 73 75 6d 20 68 62 6c 6f | 63 6b 20 62 65 65 70 20 |sum hblo|ck beep |
|00001b20| 6d 65 73 73 61 67 65 20 | 22 49 6e 76 61 6c 69 64 |message |"Invalid|
|00001b30| 20 63 68 65 63 6b 73 75 | 6d 20 66 6f 72 20 66 69 | checksu|m for fi|
|00001b40| 6c 65 20 25 73 21 22 20 | 66 69 6c 65 2d 6e 61 6d |le %s!" |file-nam|
|00001b50| 65 5d 20 33 20 28 23 24 | 20 2e 20 36 37 32 37 29 |e] 3 (#$| . 6727)|
|00001b60| 5d 29 0a 23 40 35 39 20 | 4d 6f 64 69 66 69 65 73 |]).#@59 |Modifies|
|00001b70| 20 74 68 65 20 67 69 76 | 65 6e 20 73 74 72 69 6e | the giv|en strin|
|00001b80| 67 20 74 6f 20 68 61 76 | 65 20 61 20 76 61 6c 69 |g to hav|e a vali|
|00001b90| 64 20 63 68 65 63 6b 73 | 75 6d 20 66 69 65 6c 64 |d checks|um field|
|00001ba0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 74 61 |...(defa|lias 'ta|
|00001bb0| 72 2d 68 65 61 64 65 72 | 2d 62 6c 6f 63 6b 2d 72 |r-header|-block-r|
|00001bc0| 65 63 6f 6d 70 75 74 65 | 2d 63 68 65 63 6b 73 75 |ecompute|-checksu|
|00001bd0| 6d 20 23 5b 28 68 62 6c | 6f 63 6b 29 20 22 c0 09 |m #[(hbl|ock) "..|
|00001be0| 21 1a c3 c4 5c 6e 5c 22 | 89 1d 47 1e 06 09 c7 c8 |!...\n\"|..G.....|
|00001bf0| 49 88 09 c9 ca 49 88 0e | 06 c8 1e 0b 1e 5c 66 0e |I....I..|.....\f.|
|00001c00| 0b 0e 5c 66 57 83 3f 00 | 09 cd 0e 0b 5a 0d 0e 06 |..\fW.?.|....Z...|
|00001c10| 0e 0b 5a ce 5a 48 49 88 | 0e 0b 54 89 16 0b 82 20 |..Z.ZHI.|..T.... |
|00001c20| 00 2d 09 87 22 20 5b 74 | 61 72 2d 68 65 61 64 65 |.-.." [t|ar-heade|
|00001c30| 72 2d 62 6c 6f 63 6b 2d | 63 68 65 63 6b 73 75 6d |r-block-|checksum|
|00001c40| 20 68 62 6c 6f 63 6b 20 | 63 68 6b 20 66 6f 72 6d | hblock |chk form|
|00001c50| 61 74 20 22 25 36 6f 22 | 20 63 68 6b 2d 73 74 72 |at "%6o"| chk-str|
|00001c60| 69 6e 67 20 6c 20 31 35 | 34 20 30 20 31 35 35 20 |ing l 15|4 0 155 |
|00001c70| 33 32 20 69 20 5f 64 6f | 74 69 6d 65 73 5f 65 6e |32 i _do|times_en|
|00001c80| 64 5f 20 31 35 33 20 31 | 5d 20 36 20 28 23 24 20 |d_ 153 1|] 6 (#$ |
|00001c90| 2e 20 37 30 31 36 29 5d | 29 0a 28 64 65 66 61 6c |. 7016)]|).(defal|
|00001ca0| 69 61 73 20 27 74 61 72 | 2d 63 6c 69 70 2d 74 69 |ias 'tar|-clip-ti|
|00001cb0| 6d 65 2d 73 74 72 69 6e | 67 20 23 5b 28 74 69 6d |me-strin|g #[(tim|
|00001cc0| 65 29 20 22 c0 09 21 89 | 1a c3 c4 4f 5c 6e c5 c6 |e) "..!.|...O\n..|
|00001cd0| 4f 50 29 87 22 20 5b 63 | 75 72 72 65 6e 74 2d 74 |OP)." [c|urrent-t|
|00001ce0| 69 6d 65 2d 73 74 72 69 | 6e 67 20 74 69 6d 65 20 |ime-stri|ng time |
|00001cf0| 73 74 72 20 34 20 31 36 | 20 31 39 20 32 34 5d 20 |str 4 16| 19 24] |
|00001d00| 35 5d 29 0a 23 40 31 32 | 33 20 53 74 6f 72 65 20 |5]).#@12|3 Store |
|00001d10| 60 2d 72 77 2d 2d 72 2d | 2d 72 2d 2d 27 20 69 6e |`-rw--r-|-r--' in|
|00001d20| 64 69 63 61 74 69 6e 67 | 20 4d 4f 44 45 20 69 6e |dicating| MODE in|
|00001d30| 74 6f 20 53 54 52 49 4e | 47 20 62 65 67 69 6e 6e |to STRIN|G beginn|
|00001d40| 69 6e 67 20 61 74 20 53 | 54 41 52 54 2e 0a 4d 4f |ing at S|TART..MO|
|00001d50| 44 45 20 73 68 6f 75 6c | 64 20 62 65 20 61 6e 20 |DE shoul|d be an |
|00001d60| 69 6e 74 65 67 65 72 20 | 77 68 69 63 68 20 69 73 |integer |which is|
|00001d70| 20 61 20 66 69 6c 65 20 | 6d 6f 64 65 20 76 61 6c | a file |mode val|
|00001d80| 75 65 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ue...(de|falias '|
|00001d90| 74 61 72 2d 67 72 69 6e | 64 2d 66 69 6c 65 2d 6d |tar-grin|d-file-m|
|00001da0| 6f 64 65 20 23 5b 28 6d | 6f 64 65 20 73 74 72 69 |ode #[(m|ode stri|
|00001db0| 6e 67 20 73 74 61 72 74 | 29 20 22 08 09 c2 0b c4 |ng start|) ".....|
|00001dc0| 5c 22 c5 55 83 0f 00 c6 | 82 10 00 c7 49 88 08 09 |\".U....|....I...|
|00001dd0| c8 5c 5c c2 0b c9 5c 22 | c5 55 83 23 00 c6 82 24 |.\\...\"|.U.#...$|
|00001de0| 00 ca 49 88 08 09 cb 5c | 5c c2 0b cc 5c 22 c5 55 |..I....\|\...\".U|
|00001df0| 83 37 00 c6 82 38 00 cd | 49 88 08 09 ce 5c 5c c2 |.7...8..|I....\\.|
|00001e00| 0b cf 5c 22 c5 55 83 4b | 00 c6 82 4c 00 c7 49 88 |..\".U.K|...L..I.|
|00001e10| 08 09 d0 5c 5c c2 0b d1 | 5c 22 c5 55 83 5f 00 c6 |...\\...|\".U._..|
|00001e20| 82 60 00 ca 49 88 08 09 | d2 5c 5c c2 0b d3 5c 22 |.`..I...|.\\...\"|
|00001e30| c5 55 83 73 00 c6 82 74 | 00 cd 49 88 08 09 d4 5c |.U.s...t|..I....\|
|00001e40| 5c c2 0b d0 5c 22 c5 55 | 83 87 00 c6 82 88 00 c7 |\...\".U|........|
|00001e50| 49 88 08 09 d5 5c 5c c2 | 0b cb 5c 22 c5 55 83 9b |I....\\.|..\".U..|
|00001e60| 00 c6 82 9c 00 ca 49 88 | 08 09 d3 5c 5c c2 0b c8 |......I.|...\\...|
|00001e70| 5c 22 c5 55 83 af 00 c6 | 82 b0 00 cd 49 88 c2 0b |\".U....|....I...|
|00001e80| d6 5c 22 c5 55 84 c2 00 | 08 09 cb 5c 5c d7 49 88 |.\".U...|...\\.I.|
|00001e90| c2 0b d8 5c 22 c5 55 84 | d2 00 08 09 d2 5c 5c d7 |...\".U.|.....\\.|
|00001ea0| 49 88 08 87 22 20 5b 73 | 74 72 69 6e 67 20 73 74 |I..." [s|tring st|
|00001eb0| 61 72 74 20 6c 6f 67 61 | 6e 64 20 6d 6f 64 65 20 |art loga|nd mode |
|00001ec0| 32 35 36 20 30 20 34 35 | 20 31 31 34 20 31 20 31 |256 0 45| 114 1 1|
|00001ed0| 32 38 20 31 31 39 20 32 | 20 36 34 20 31 32 30 20 |28 119 2| 64 120 |
|00001ee0| 33 20 33 32 20 34 20 31 | 36 20 35 20 38 20 36 20 |3 32 4 1|6 5 8 6 |
|00001ef0| 37 20 31 30 32 34 20 31 | 31 35 20 32 30 34 38 5d |7 1024 1|15 2048]|
|00001f00| 20 35 20 28 23 24 20 2e | 20 37 34 33 34 29 5d 29 | 5 (#$ .| 7434)])|
|00001f10| 0a 23 40 35 33 20 52 65 | 74 75 72 6e 73 20 61 20 |.#@53 Re|turns a |
|00001f20| 6c 69 6e 65 20 73 69 6d | 69 6c 61 72 20 74 6f 20 |line sim|ilar to |
|00001f30| 74 68 65 20 6f 75 74 70 | 75 74 20 6f 66 20 60 74 |the outp|ut of `t|
|00001f40| 61 72 20 2d 76 74 66 27 | 2e 1f 0a 28 64 65 66 61 |ar -vtf'|...(defa|
|00001f50| 6c 69 61 73 20 27 74 61 | 72 2d 68 65 61 64 65 72 |lias 'ta|r-header|
|00001f60| 2d 62 6c 6f 63 6b 2d 73 | 75 6d 6d 61 72 69 7a 65 |-block-s|ummarize|
|00001f70| 20 23 5b 28 74 61 72 2d | 68 62 6c 6f 63 6b 20 26 | #[(tar-|hblock &|
|00001f80| 6f 70 74 69 6f 6e 61 6c | 20 6d 6f 64 2d 70 29 20 |optional| mod-p) |
|00001f90| 22 08 c1 48 08 c2 48 08 | c3 48 08 c4 48 08 c5 48 |"..H..H.|.H..H..H|
|00001fa0| 08 c6 48 08 c7 48 08 c8 | 48 08 c9 48 08 ca 48 08 |..H..H..|H..H..H.|
|00001fb0| cb 48 1e 5c 66 1e 0d 1e | 0e 1e 0f 1e 10 1e 11 1e |.H.\f...|........|
|00001fc0| 12 1e 13 1e 14 1e 15 1e | 16 c6 1e 17 cb 1e 18 cb |........|........|
|00001fd0| 1e 19 cb 1e 1a 0e 1b 83 | 4c 00 dc 82 4d 00 c1 1e |........|L...M...|
|00001fe0| 1d 0e 17 0e 18 5c 5c 53 | 89 1e 1e 0e 19 5c 5c 0e |.....\\S|.....\\.|
|00001ff0| 1a 5c 5c 89 1e 1f c3 5c | 5c 89 1e 20 0e 1d 5c 5c |.\\....\|\.. ..\\|
|00002000| 1e 21 e2 0e 21 0e 16 47 | 5c 5c 0e 0d 83 7f 00 0e |.!..!..G|\\......|
|00002010| 5c 66 47 c8 5c 5c 82 80 | 00 c1 5c 5c e3 5c 22 1e |\fG.\\..|..\\.\".|
|00002020| 24 08 ca 48 1e 25 0e 24 | c1 0e 26 83 96 00 e7 82 |$..H.%.$|..&.....|
|00002030| 97 00 e3 49 88 0e 24 c2 | 0e 25 e8 3d 84 aa 00 0e |...I..$.|.%.=....|
|00002040| 25 c1 3d 83 ae 00 e9 82 | 19 01 0e 25 c2 3d 83 b9 |%.=.....|...%.=..|
|00002050| 00 ea 82 19 01 0e 25 c3 | 3d 83 c4 00 eb 82 19 01 |......%.|=.......|
|00002060| 0e 25 c4 3d 83 cf 00 ec | 82 19 01 0e 25 c7 3d 83 |.%.=....|....%.=.|
|00002070| da 00 ed 82 19 01 0e 25 | c8 3d 83 e5 00 ee 82 19 |.......%|.=......|
|00002080| 01 0e 25 c9 3d 83 f0 00 | ef 82 19 01 0e 25 f0 3d |..%.=...|.....%.=|
|00002090| 83 fb 00 e7 82 19 01 0e | 25 f1 3d 83 06 01 f2 82 |........|%.=.....|
|000020a0| 19 01 0e 25 f3 3d 83 11 | 01 f4 82 19 01 0e 25 f5 |...%.=..|......%.|
|000020b0| 3d 85 19 01 f6 49 88 f7 | 0e 15 0e 24 c3 23 88 0e |=....I..|...$.#..|
|000020c0| 12 47 c1 55 83 32 01 f8 | 0e 14 21 82 34 01 0e 12 |.G.U.2..|..!.4...|
|000020d0| 16 14 0e 11 47 c1 55 83 | 45 01 f8 0e 13 21 82 47 |....G.U.|E....!.G|
|000020e0| 01 0e 11 16 13 f8 0e 10 | 21 16 10 f9 0e 0f 21 16 |........|!.....!.|
|000020f0| 0f 0e 18 53 0e 14 47 5e | c1 1e 3a 1e 3b 0e 3a 0e |...S..G^|..:.;.:.|
|00002100| 3b 57 83 85 01 0e 24 0e | 1e 0e 3a 5a 0e 14 89 47 |;W....$.|..:Z...G|
|00002110| 0e 3a 5a c2 5a 48 49 88 | 0e 3a 54 89 16 3a 82 63 |.:Z.ZHI.|.:T..:.c|
|00002120| 01 2a 0e 24 0e 1e 54 fc | 49 88 0e 19 53 0e 13 47 |.*.$..T.|I...S..G|
|00002130| 5e c1 1e 3a 1e 3b 0e 3a | 0e 3b 57 83 bb 01 0e 24 |^..:.;.:|.;W....$|
|00002140| 0e 1e c3 5c 5c 0e 3a 5c | 5c 0e 13 0e 3a 48 49 88 |...\\.:\|\...:HI.|
|00002150| 0e 3a 54 89 16 3a 82 9c | 01 2a 0e 1a 0e 10 47 5e |.:T..:..|.*....G^|
|00002160| c1 1e 3a 1e 3b 0e 3a 0e | 3b 57 83 eb 01 0e 24 0e |..:.;.:.|;W....$.|
|00002170| 1f 0e 3a 5a 0e 10 89 47 | 0e 3a 5a c2 5a 48 49 88 |..:Z...G|.:Z.ZHI.|
|00002180| 0e 3a 54 89 16 3a 82 c9 | 01 2a 0e 1b 83 19 02 0e |.:T..:..|.*......|
|00002190| 0f 47 c1 1e 3a 1e 3b 0e | 3a 0e 3b 57 83 18 02 0e |.G..:.;.|:.;W....|
|000021a0| 24 0e 20 0e 3a 5c 5c 0e | 0f 0e 3a 48 49 88 0e 3a |$. .:\\.|..:HI..:|
|000021b0| 54 89 16 3a 82 fb 01 2a | 0e 16 47 c1 1e 3a 1e 3b |T..:...*|..G..:.;|
|000021c0| 0e 3a 0e 3b 57 83 40 02 | 0e 24 0e 21 0e 3a 5c 5c |.:.;W.@.|.$.!.:\\|
|000021d0| 0e 16 0e 3a 48 49 88 0e | 3a 54 89 16 3a 82 23 02 |...:HI..|:T..:.#.|
|000021e0| 2a 0e 0d c2 3d 84 4f 02 | 0e 0d c3 3d 83 b3 02 c4 |*...=.O.|...=....|
|000021f0| c1 1e 3a 1e 3b 0e 3a 0e | 3b 57 83 84 02 0e 24 0e |..:.;.:.|;W....$.|
|00002200| 21 0e 16 47 5c 5c 0e 3a | 5c 5c c2 5c 5c 0e 0d c2 |!..G\\.:|\\.\\...|
|00002210| 55 83 75 02 fd 82 76 02 | fe 0e 3a 48 49 88 0e 3a |U.u...v.|..:HI..:|
|00002220| 54 89 16 3a 82 57 02 2a | 0e 5c 66 47 c1 1e 3a 1e |T..:.W.*|.\fG..:.|
|00002230| 3b 0e 3a 0e 3b 57 83 b2 | 02 0e 24 0e 21 0e 16 47 |;.:.;W..|..$.!..G|
|00002240| 5c 5c 0e 3a 5c 5c c8 5c | 5c 0e 5c 66 0e 3a 48 49 |\\.:\\.\|\.\f.:HI|
|00002250| 88 0e 3a 54 89 16 3a 82 | 8f 02 2a ff 0e 21 0e 24 |..:T..:.|..*..!.$|
|00002260| 47 81 40 00 81 41 00 0e | 24 25 88 0e 24 2e 16 87 |G.@..A..|$%..$...|
|00002270| 22 20 5b 74 61 72 2d 68 | 62 6c 6f 63 6b 20 30 20 |" [tar-h|block 0 |
|00002280| 31 20 32 20 33 20 31 30 | 20 31 31 20 34 20 35 20 |1 2 3 10| 11 4 5 |
|00002290| 36 20 37 20 38 20 6c 69 | 6e 6b 2d 6e 61 6d 65 20 |6 7 8 li|nk-name |
|000022a0| 6c 69 6e 6b 2d 70 20 63 | 6b 20 74 69 6d 65 20 73 |link-p c|k time s|
|000022b0| 69 7a 65 20 67 6e 61 6d | 65 20 75 6e 61 6d 65 20 |ize gnam|e uname |
|000022c0| 67 69 64 20 75 69 64 20 | 6d 6f 64 65 20 6e 61 6d |gid uid |mode nam|
|000022d0| 65 20 6c 65 66 74 20 6e | 61 6d 65 77 20 67 72 6f |e left n|amew gro|
|000022e0| 75 70 77 20 73 69 7a 65 | 77 20 74 61 72 2d 6d 6f |upw size|w tar-mo|
|000022f0| 64 65 2d 73 68 6f 77 2d | 64 61 74 65 20 31 38 20 |de-show-|date 18 |
|00002300| 64 61 74 65 77 20 73 6c | 61 73 68 20 6c 61 73 74 |datew sl|ash last|
|00002310| 64 69 67 69 74 20 64 61 | 74 65 73 74 61 72 74 20 |digit da|testart |
|00002320| 6e 61 6d 65 73 74 61 72 | 74 20 6d 61 6b 65 2d 73 |namestar|t make-s|
|00002330| 74 72 69 6e 67 20 33 32 | 20 73 74 72 69 6e 67 20 |tring 32| string |
|00002340| 74 79 70 65 20 6d 6f 64 | 2d 70 20 34 32 20 6e 69 |type mod|-p 42 ni|
|00002350| 6c 20 34 35 20 31 30 38 | 20 31 31 35 20 39 39 20 |l 45 108| 115 99 |
|00002360| 39 38 20 31 30 30 20 31 | 31 32 20 32 30 20 32 39 |98 100 1|12 20 29|
|00002370| 20 37 37 20 33 35 20 38 | 33 20 33 38 20 38 36 20 | 77 35 8|3 38 86 |
|00002380| 74 61 72 2d 67 72 69 6e | 64 2d 66 69 6c 65 2d 6d |tar-grin|d-file-m|
|00002390| 6f 64 65 20 69 6e 74 2d | 74 6f 2d 73 74 72 69 6e |ode int-|to-strin|
|000023a0| 67 20 74 61 72 2d 63 6c | 69 70 2d 74 69 6d 65 2d |g tar-cl|ip-time-|
|000023b0| 73 74 72 69 6e 67 20 69 | 20 5f 64 6f 74 69 6d 65 |string i| _dotime|
|000023c0| 73 5f 65 6e 64 5f 20 34 | 37 20 22 3d 3d 3e 22 20 |s_end_ 4|7 "==>" |
|000023d0| 22 2d 2d 3e 22 20 70 75 | 74 2d 74 65 78 74 2d 70 |"-->" pu|t-text-p|
|000023e0| 72 6f 70 65 72 74 79 20 | 6d 6f 75 73 65 2d 66 61 |roperty |mouse-fa|
|000023f0| 63 65 20 68 69 67 68 6c | 69 67 68 74 5d 20 31 33 |ce highl|ight] 13|
|00002400| 20 28 23 24 20 2e 20 37 | 39 35 38 29 5d 29 0a 23 | (#$ . 7|958)]).#|
|00002410| 40 32 30 31 20 50 61 72 | 73 65 20 74 68 65 20 63 |@201 Par|se the c|
|00002420| 6f 6e 74 65 6e 74 73 20 | 6f 66 20 74 68 65 20 74 |ontents |of the t|
|00002430| 61 72 20 66 69 6c 65 20 | 69 6e 20 74 68 65 20 63 |ar file |in the c|
|00002440| 75 72 72 65 6e 74 20 62 | 75 66 66 65 72 2e 0a 50 |urrent b|uffer..P|
|00002450| 6c 61 63 65 20 61 20 64 | 69 72 65 64 2d 6c 69 6b |lace a d|ired-lik|
|00002460| 65 20 6c 69 73 74 69 6e | 67 20 6f 6e 20 74 68 65 |e listin|g on the|
|00002470| 20 66 72 6f 6e 74 3b 0a | 74 68 65 6e 20 6e 61 72 | front;.|then nar|
|00002480| 72 6f 77 20 74 6f 20 69 | 74 2c 20 73 6f 20 74 68 |row to i|t, so th|
|00002490| 61 74 20 6f 6e 6c 79 20 | 74 68 61 74 20 6c 69 73 |at only |that lis|
|000024a0| 74 69 6e 67 0a 69 73 20 | 76 69 73 69 62 6c 65 20 |ting.is |visible |
|000024b0| 28 61 6e 64 20 74 68 65 | 20 72 65 61 6c 20 64 61 |(and the| real da|
|000024c0| 74 61 20 6f 66 20 74 68 | 65 20 62 75 66 66 65 72 |ta of th|e buffer|
|000024d0| 20 69 73 20 68 69 64 64 | 65 6e 29 2e 1f 0a 28 64 | is hidd|en)...(d|
|000024e0| 65 66 61 6c 69 61 73 20 | 27 74 61 72 2d 73 75 6d |efalias |'tar-sum|
|000024f0| 6d 61 72 69 7a 65 2d 62 | 75 66 66 65 72 20 23 5b |marize-b|uffer #[|
|00002500| 6e 69 6c 20 22 c0 c1 21 | 88 c2 1b c4 1d c4 c6 20 |nil "..!|....... |
|00002510| c7 5a 5d 1e 08 c4 0e 08 | c9 a5 5d 1e 5c 6e c2 1e |.Z].....|..].\n..|
|00002520| 0b 0d cc 5c 5c 64 58 83 | 88 00 cd 0d 89 cc 5c 5c |...\\dX.|......\\|
|00002530| 7b 21 89 16 0b ce 3d 84 | 88 00 0d cc 5c 5c 15 c0 |{!....=.|....\\..|
|00002540| cf 0d 0e 5c 6e a5 5c 22 | 88 0e 0b d0 48 d1 3d 83 |...\n.\"|....H.=.|
|00002550| 4b 00 0d cc 5c 5c 15 0e | 0b d2 48 89 1e 13 d4 57 |K...\\..|..H....W|
|00002560| 83 61 00 d5 d6 0e 0b d4 | 48 0e 13 23 88 0d 0e 0b |.a......|H..#....|
|00002570| 42 0b 42 13 0e 0b d0 48 | 84 84 00 0e 13 d4 56 83 |B.B....H|......V.|
|00002580| 84 00 0d d7 89 0e 13 53 | d8 5c 22 d9 5c 22 5c 5c |.......S|.\".\"\\|
|00002590| cc 5c 5c 15 29 82 1b 00 | da db 21 88 0b 9f 16 1b |.\\.)...|..!.....|
|000025a0| 0e 0b ce 3d 83 9e 00 c0 | dc 21 88 82 a2 00 c0 dd |...=....|.!......|
|000025b0| 21 88 2d 8a 65 62 88 c2 | 89 1e 1e 1e 1f e0 0e 1b |!.-.eb..|........|
|000025c0| 21 1e 21 0e 21 83 d2 00 | 0e 21 40 1e 5c 22 e3 0e |!.!.!...|.!@.\"..|
|000025d0| 5c 22 41 21 e4 0e 1e 42 | 42 16 1e 0e 21 41 16 21 |\"A!...B|B...!A.!|
|000025e0| 29 82 b3 00 29 e5 e6 0e | 1e 5c 22 63 88 da e7 21 |)...)...|.\"c...!|
|000025f0| 88 60 16 27 c4 0e 27 7d | 88 e8 c2 21 2b 87 22 20 |.`.'..'}|...!+." |
|00002600| 5b 6d 65 73 73 61 67 65 | 20 22 50 61 72 73 69 6e |[message| "Parsin|
|00002610| 67 20 74 61 72 20 66 69 | 6c 65 2e 2e 2e 22 20 6e |g tar fi|le..." n|
|00002620| 69 6c 20 72 65 73 75 6c | 74 20 31 20 70 6f 73 20 |il resul|t 1 pos |
|00002630| 62 75 66 66 65 72 2d 73 | 69 7a 65 20 31 30 32 34 |buffer-s|ize 1024|
|00002640| 20 62 73 20 31 30 30 20 | 62 73 31 30 30 20 74 6f | bs 100 |bs100 to|
|00002650| 6b 65 6e 73 20 35 31 32 | 20 74 61 72 2d 68 65 61 |kens 512| tar-hea|
|00002660| 64 65 72 2d 62 6c 6f 63 | 6b 2d 74 6f 6b 65 6e 69 |der-bloc|k-tokeni|
|00002670| 7a 65 20 65 6d 70 74 79 | 2d 74 61 72 2d 62 6c 6f |ze empty|-tar-blo|
|00002680| 63 6b 20 22 50 61 72 73 | 69 6e 67 20 74 61 72 20 |ck "Pars|ing tar |
|00002690| 66 69 6c 65 2e 2e 2e 25 | 64 25 25 22 20 37 20 32 |file...%|d%%" 7 2|
|000026a0| 30 20 34 20 73 69 7a 65 | 20 30 20 65 72 72 6f 72 |0 4 size| 0 error|
|000026b0| 20 22 25 73 20 68 61 73 | 20 73 69 7a 65 20 25 73 | "%s has| size %s|
|000026c0| 20 2d 20 63 6f 72 72 75 | 70 74 65 64 22 20 61 73 | - corru|pted" as|
|000026d0| 68 20 2d 39 20 39 20 6d | 61 6b 65 2d 6c 6f 63 61 |h -9 9 m|ake-loca|
|000026e0| 6c 2d 76 61 72 69 61 62 | 6c 65 20 74 61 72 2d 70 |l-variab|le tar-p|
|000026f0| 61 72 73 65 2d 69 6e 66 | 6f 20 22 50 61 72 73 69 |arse-inf|o "Parsi|
|00002700| 6e 67 20 74 61 72 20 66 | 69 6c 65 2e 2e 2e 64 6f |ng tar f|ile...do|
|00002710| 6e 65 22 20 22 57 61 72 | 6e 69 6e 67 3a 20 70 72 |ne" "War|ning: pr|
|00002720| 65 6d 61 74 75 72 65 20 | 45 4f 46 20 70 61 72 73 |emature |EOF pars|
|00002730| 69 6e 67 20 74 61 72 20 | 66 69 6c 65 22 20 73 75 |ing tar |file" su|
|00002740| 6d 6d 61 72 69 65 73 20 | 62 75 66 66 65 72 2d 72 |mmaries |buffer-r|
|00002750| 65 61 64 2d 6f 6e 6c 79 | 20 72 65 76 65 72 73 65 |ead-only| reverse|
|00002760| 20 5f 64 6f 6c 69 73 74 | 5f 69 74 65 72 61 74 6f | _dolist|_iterato|
|00002770| 72 5f 20 74 61 72 2d 64 | 65 73 63 20 74 61 72 2d |r_ tar-d|esc tar-|
|00002780| 68 65 61 64 65 72 2d 62 | 6c 6f 63 6b 2d 73 75 6d |header-b|lock-sum|
|00002790| 6d 61 72 69 7a 65 20 22 | 5c 6e 22 20 61 70 70 6c |marize "|\n" appl|
|000027a0| 79 20 63 6f 6e 63 61 74 | 20 74 61 72 2d 68 65 61 |y concat| tar-hea|
|000027b0| 64 65 72 2d 6f 66 66 73 | 65 74 20 73 65 74 2d 62 |der-offs|et set-b|
|000027c0| 75 66 66 65 72 2d 6d 6f | 64 69 66 69 65 64 2d 70 |uffer-mo|dified-p|
|000027d0| 5d 20 36 20 28 23 24 20 | 2e 20 39 32 33 37 29 5d |] 6 (#$ |. 9237)]|
|000027e0| 29 0a 23 40 33 38 20 2a | 4c 6f 63 61 6c 20 6b 65 |).#@38 *|Local ke|
|000027f0| 79 6d 61 70 20 66 6f 72 | 20 54 61 72 20 6d 6f 64 |ymap for| Tar mod|
|00002800| 65 20 6c 69 73 74 69 6e | 67 73 2e 1f 0a 28 64 65 |e listin|gs...(de|
|00002810| 66 76 61 72 20 74 61 72 | 2d 6d 6f 64 65 2d 6d 61 |fvar tar|-mode-ma|
|00002820| 70 20 6e 69 6c 20 28 23 | 24 20 2e 20 2d 31 30 32 |p nil (#|$ . -102|
|00002830| 31 35 29 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |15)).(by|te-code |
|00002840| 22 08 84 a7 00 c1 20 10 | c2 08 21 88 c3 08 c4 c5 |"..... .|..!.....|
|00002850| 23 88 c3 08 c6 c7 23 88 | c3 08 c8 c9 23 88 c3 08 |#.....#.|....#...|
|00002860| ca c9 23 88 c3 08 cb cc | 23 88 c3 08 cd cc 23 88 |..#.....|#.....#.|
|00002870| c3 08 ce cc 23 88 c3 08 | cf d0 23 88 c3 08 d1 d2 |....#...|..#.....|
|00002880| 23 88 c3 08 d3 d4 23 88 | c3 08 d5 c5 23 88 c3 08 |#.....#.|....#...|
|00002890| d6 c5 23 88 c3 08 d7 c5 | 23 88 c3 08 d8 d9 23 88 |..#.....|#.....#.|
|000028a0| c3 08 da db 23 88 c3 08 | dc db 23 88 c3 08 dd db |....#...|..#.....|
|000028b0| 23 88 c3 08 de df 23 88 | c3 08 e0 e1 23 88 c3 08 |#.....#.|....#...|
|000028c0| e2 e3 23 88 c3 08 e4 e5 | 23 88 c3 08 e6 e7 23 88 |..#.....|#.....#.|
|000028d0| c3 08 e8 d9 23 88 c3 08 | e9 ea 23 88 c3 08 eb ec |....#...|..#.....|
|000028e0| 23 88 c3 08 ed ee 23 88 | c3 08 ef f0 23 88 c3 08 |#.....#.|....#...|
|000028f0| f1 f2 f3 f2 21 42 23 88 | c3 08 f4 f5 23 88 c3 08 |....!B#.|....#...|
|00002900| f6 f7 23 88 c3 08 f8 f9 | 23 88 c3 08 fa fb 23 88 |..#.....|#.....#.|
|00002910| c3 08 fc fd f3 fd 21 42 | 23 88 c3 08 fe ff 23 88 |......!B|#.....#.|
|00002920| c3 08 81 40 00 81 41 00 | 23 88 c3 08 81 42 00 81 |...@..A.|#....B..|
|00002930| 43 00 23 88 c3 08 81 44 | 00 81 45 00 f3 81 45 00 |C.#....D|..E...E.|
|00002940| 21 42 23 88 c3 08 81 46 | 00 81 47 00 23 88 c3 08 |!B#....F|..G.#...|
|00002950| 81 48 00 81 49 00 23 88 | c3 08 81 4a 00 81 4b 00 |.H..I.#.|...J..K.|
|00002960| 23 88 c3 08 81 4c 00 81 | 4d 00 23 88 c3 08 81 4e |#....L..|M.#....N|
|00002970| 00 81 4f 00 23 88 c3 08 | 81 50 00 81 51 00 23 88 |..O.#...|.P..Q.#.|
|00002980| 81 52 00 81 53 00 81 54 | 00 81 55 00 23 88 81 52 |.R..S..T|..U.#..R|
|00002990| 00 81 56 00 81 54 00 81 | 55 00 23 87 22 20 5b 74 |..V..T..|U.#." [t|
|000029a0| 61 72 2d 6d 6f 64 65 2d | 6d 61 70 20 6d 61 6b 65 |ar-mode-|map make|
|000029b0| 2d 6b 65 79 6d 61 70 20 | 73 75 70 70 72 65 73 73 |-keymap |suppress|
|000029c0| 2d 6b 65 79 6d 61 70 20 | 64 65 66 69 6e 65 2d 6b |-keymap |define-k|
|000029d0| 65 79 20 22 20 22 20 74 | 61 72 2d 6e 65 78 74 2d |ey " " t|ar-next-|
|000029e0| 6c 69 6e 65 20 22 63 22 | 20 74 61 72 2d 63 6f 70 |line "c"| tar-cop|
|000029f0| 79 20 22 64 22 20 74 61 | 72 2d 66 6c 61 67 2d 64 |y "d" ta|r-flag-d|
|00002a00| 65 6c 65 74 65 64 20 22 | 04 22 20 22 65 22 20 74 |eleted "|." "e" t|
|00002a10| 61 72 2d 65 78 74 72 61 | 63 74 20 22 66 22 20 22 |ar-extra|ct "f" "|
|00002a20| 0d 22 20 5b 6d 6f 75 73 | 65 2d 32 5d 20 74 61 72 |." [mous|e-2] tar|
|00002a30| 2d 6d 6f 75 73 65 2d 65 | 78 74 72 61 63 74 20 22 |-mouse-e|xtract "|
|00002a40| 67 22 20 72 65 76 65 72 | 74 2d 62 75 66 66 65 72 |g" rever|t-buffer|
|00002a50| 20 22 68 22 20 64 65 73 | 63 72 69 62 65 2d 6d 6f | "h" des|cribe-mo|
|00002a60| 64 65 20 22 6e 22 20 22 | 0e 22 20 5b 64 6f 77 6e |de "n" "|." [down|
|00002a70| 5d 20 22 6f 22 20 74 61 | 72 2d 65 78 74 72 61 63 |] "o" ta|r-extrac|
|00002a80| 74 2d 6f 74 68 65 72 2d | 77 69 6e 64 6f 77 20 22 |t-other-|window "|
|00002a90| 70 22 20 74 61 72 2d 70 | 72 65 76 69 6f 75 73 2d |p" tar-p|revious-|
|00002aa0| 6c 69 6e 65 20 22 10 22 | 20 5b 75 70 5d 20 22 72 |line "."| [up] "r|
|00002ab0| 22 20 74 61 72 2d 72 65 | 6e 61 6d 65 2d 65 6e 74 |" tar-re|name-ent|
|00002ac0| 72 79 20 22 75 22 20 74 | 61 72 2d 75 6e 66 6c 61 |ry "u" t|ar-unfla|
|00002ad0| 67 20 22 76 22 20 74 61 | 72 2d 76 69 65 77 20 22 |g "v" ta|r-view "|
|00002ae0| 78 22 20 74 61 72 2d 65 | 78 70 75 6e 67 65 20 22 |x" tar-e|xpunge "|
|00002af0| 7f 22 20 74 61 72 2d 75 | 6e 66 6c 61 67 2d 62 61 |." tar-u|nflag-ba|
|00002b00| 63 6b 77 61 72 64 73 20 | 22 45 22 20 22 4d 22 20 |ckwards |"E" "M" |
|00002b10| 74 61 72 2d 63 68 6d 6f | 64 2d 65 6e 74 72 79 20 |tar-chmo|d-entry |
|00002b20| 22 47 22 20 74 61 72 2d | 63 68 67 72 70 2d 65 6e |"G" tar-|chgrp-en|
|00002b30| 74 72 79 20 22 4f 22 20 | 74 61 72 2d 63 68 6f 77 |try "O" |tar-chow|
|00002b40| 6e 2d 65 6e 74 72 79 20 | 5b 6d 65 6e 75 2d 62 61 |n-entry |[menu-ba|
|00002b50| 72 20 65 64 69 74 5d 20 | 75 6e 64 65 66 69 6e 65 |r edit] |undefine|
|00002b60| 64 20 5b 6d 65 6e 75 2d | 62 61 72 20 69 6d 6d 65 |d [menu-|bar imme|
|00002b70| 64 69 61 74 65 5d 20 22 | 49 6d 6d 65 64 69 61 74 |diate] "|Immediat|
|00002b80| 65 22 20 6d 61 6b 65 2d | 73 70 61 72 73 65 2d 6b |e" make-|sparse-k|
|00002b90| 65 79 6d 61 70 20 5b 6d | 65 6e 75 2d 62 61 72 20 |eymap [m|enu-bar |
|00002ba0| 69 6d 6d 65 64 69 61 74 | 65 20 76 69 65 77 5d 20 |immediat|e view] |
|00002bb0| 28 22 56 69 65 77 20 54 | 68 69 73 20 46 69 6c 65 |("View T|his File|
|00002bc0| 22 20 2e 20 74 61 72 2d | 76 69 65 77 29 20 5b 6d |" . tar-|view) [m|
|00002bd0| 65 6e 75 2d 62 61 72 20 | 69 6d 6d 65 64 69 61 74 |enu-bar |immediat|
|00002be0| 65 20 64 69 73 70 6c 61 | 79 5d 20 28 22 44 69 73 |e displa|y] ("Dis|
|00002bf0| 70 6c 61 79 20 69 6e 20 | 4f 74 68 65 72 20 57 69 |play in |Other Wi|
|00002c00| 6e 64 6f 77 22 20 2e 20 | 74 61 72 2d 64 69 73 70 |ndow" . |tar-disp|
|00002c10| 6c 61 79 2d 6f 74 68 65 | 72 2d 66 69 6c 65 29 20 |lay-othe|r-file) |
|00002c20| 5b 6d 65 6e 75 2d 62 61 | 72 20 69 6d 6d 65 64 69 |[menu-ba|r immedi|
|00002c30| 61 74 65 20 66 69 6e 64 | 2d 66 69 6c 65 2d 6f 74 |ate find|-file-ot|
|00002c40| 68 65 72 2d 77 69 6e 64 | 6f 77 5d 20 28 22 46 69 |her-wind|ow] ("Fi|
|00002c50| 6e 64 20 69 6e 20 4f 74 | 68 65 72 20 57 69 6e 64 |nd in Ot|her Wind|
|00002c60| 6f 77 22 20 2e 20 74 61 | 72 2d 65 78 74 72 61 63 |ow" . ta|r-extrac|
|00002c70| 74 2d 6f 74 68 65 72 2d | 77 69 6e 64 6f 77 29 20 |t-other-|window) |
|00002c80| 5b 6d 65 6e 75 2d 62 61 | 72 20 69 6d 6d 65 64 69 |[menu-ba|r immedi|
|00002c90| 61 74 65 20 66 69 6e 64 | 2d 66 69 6c 65 5d 20 28 |ate find|-file] (|
|00002ca0| 22 46 69 6e 64 20 54 68 | 69 73 20 46 69 6c 65 22 |"Find Th|is File"|
|00002cb0| 20 2e 20 74 61 72 2d 65 | 78 74 72 61 63 74 29 20 | . tar-e|xtract) |
|00002cc0| 5b 6d 65 6e 75 2d 62 61 | 72 20 6d 61 72 6b 5d 20 |[menu-ba|r mark] |
|00002cd0| 22 4d 61 72 6b 22 20 5b | 6d 65 6e 75 2d 62 61 72 |"Mark" [|menu-bar|
|00002ce0| 20 6d 61 72 6b 20 75 6e | 6d 61 72 6b 2d 61 6c 6c | mark un|mark-all|
|00002cf0| 5d 20 28 22 55 6e 6d 61 | 72 6b 20 41 6c 6c 22 20 |] ("Unma|rk All" |
|00002d00| 2e 20 74 61 72 2d 63 6c | 65 61 72 2d 6d 6f 64 69 |. tar-cl|ear-modi|
|00002d10| 66 69 63 61 74 69 6f 6e | 2d 66 6c 61 67 73 29 20 |fication|-flags) |
|00002d20| 5b 6d 65 6e 75 2d 62 61 | 72 20 6d 61 72 6b 20 64 |[menu-ba|r mark d|
|00002d30| 65 6c 65 74 69 6f 6e 5d | 20 28 22 46 6c 61 67 22 |eletion]| ("Flag"|
|00002d40| 20 2e 20 74 61 72 2d 66 | 6c 61 67 2d 64 65 6c 65 | . tar-f|lag-dele|
|00002d50| 74 65 64 29 20 5b 6d 65 | 6e 75 2d 62 61 72 20 6d |ted) [me|nu-bar m|
|00002d60| 61 72 6b 20 75 6e 6d 61 | 72 6b 5d 20 28 22 55 6e |ark unma|rk] ("Un|
|00002d70| 66 6c 61 67 22 20 2e 20 | 74 61 72 2d 75 6e 66 6c |flag" . |tar-unfl|
|00002d80| 61 67 29 20 5b 6d 65 6e | 75 2d 62 61 72 20 6f 70 |ag) [men|u-bar op|
|00002d90| 65 72 61 74 65 5d 20 22 | 4f 70 65 72 61 74 65 22 |erate] "|Operate"|
|00002da0| 20 5b 6d 65 6e 75 2d 62 | 61 72 20 6f 70 65 72 61 | [menu-b|ar opera|
|00002db0| 74 65 20 63 68 6f 77 6e | 5d 20 28 22 43 68 61 6e |te chown|] ("Chan|
|00002dc0| 67 65 20 4f 77 6e 65 72 | 2e 2e 2e 22 20 2e 20 74 |ge Owner|..." . t|
|00002dd0| 61 72 2d 63 68 6f 77 6e | 2d 65 6e 74 72 79 29 20 |ar-chown|-entry) |
|00002de0| 5b 6d 65 6e 75 2d 62 61 | 72 20 6f 70 65 72 61 74 |[menu-ba|r operat|
|00002df0| 65 20 63 68 67 72 70 5d | 20 28 22 43 68 61 6e 67 |e chgrp]| ("Chang|
|00002e00| 65 20 47 72 6f 75 70 2e | 2e 2e 22 20 2e 20 74 61 |e Group.|.." . ta|
|00002e10| 72 2d 63 68 67 72 70 2d | 65 6e 74 72 79 29 20 5b |r-chgrp-|entry) [|
|00002e20| 6d 65 6e 75 2d 62 61 72 | 20 6f 70 65 72 61 74 65 |menu-bar| operate|
|00002e30| 20 63 68 6d 6f 64 5d 20 | 28 22 43 68 61 6e 67 65 | chmod] |("Change|
|00002e40| 20 4d 6f 64 65 2e 2e 2e | 22 20 2e 20 74 61 72 2d | Mode...|" . tar-|
|00002e50| 63 68 6d 6f 64 2d 65 6e | 74 72 79 29 20 5b 6d 65 |chmod-en|try) [me|
|00002e60| 6e 75 2d 62 61 72 20 6f | 70 65 72 61 74 65 20 72 |nu-bar o|perate r|
|00002e70| 65 6e 61 6d 65 5d 20 28 | 22 52 65 6e 61 6d 65 20 |ename] (|"Rename |
|00002e80| 74 6f 2e 2e 2e 22 20 2e | 20 74 61 72 2d 72 65 6e |to..." .| tar-ren|
|00002e90| 61 6d 65 2d 65 6e 74 72 | 79 29 20 5b 6d 65 6e 75 |ame-entr|y) [menu|
|00002ea0| 2d 62 61 72 20 6f 70 65 | 72 61 74 65 20 63 6f 70 |-bar ope|rate cop|
|00002eb0| 79 5d 20 28 22 43 6f 70 | 79 20 74 6f 2e 2e 2e 22 |y] ("Cop|y to..."|
|00002ec0| 20 2e 20 74 61 72 2d 63 | 6f 70 79 29 20 5b 6d 65 | . tar-c|opy) [me|
|00002ed0| 6e 75 2d 62 61 72 20 6f | 70 65 72 61 74 65 20 65 |nu-bar o|perate e|
|00002ee0| 78 70 75 6e 67 65 5d 20 | 28 22 45 78 70 75 6e 67 |xpunge] |("Expung|
|00002ef0| 65 20 4d 61 72 6b 65 64 | 20 46 69 6c 65 73 22 20 |e Marked| Files" |
|00002f00| 2e 20 74 61 72 2d 65 78 | 70 75 6e 67 65 29 20 70 |. tar-ex|punge) p|
|00002f10| 75 74 20 74 61 72 2d 6d | 6f 64 65 20 6d 6f 64 65 |ut tar-m|ode mode|
|00002f20| 2d 63 6c 61 73 73 20 73 | 70 65 63 69 61 6c 20 74 |-class s|pecial t|
|00002f30| 61 72 2d 73 75 62 66 69 | 6c 65 2d 6d 6f 64 65 5d |ar-subfi|le-mode]|
|00002f40| 20 36 29 0a 23 40 37 33 | 39 20 4d 61 6a 6f 72 20 | 6).#@73|9 Major |
|00002f50| 6d 6f 64 65 20 66 6f 72 | 20 76 69 65 77 69 6e 67 |mode for| viewing|
|00002f60| 20 61 20 74 61 72 20 66 | 69 6c 65 20 61 73 20 61 | a tar f|ile as a|
|00002f70| 20 64 69 72 65 64 2d 6c | 69 6b 65 20 6c 69 73 74 | dired-l|ike list|
|00002f80| 69 6e 67 20 6f 66 20 69 | 74 73 20 63 6f 6e 74 65 |ing of i|ts conte|
|00002f90| 6e 74 73 2e 0a 59 6f 75 | 20 63 61 6e 20 6d 6f 76 |nts..You| can mov|
|00002fa0| 65 20 61 72 6f 75 6e 64 | 20 75 73 69 6e 67 20 74 |e around| using t|
|00002fb0| 68 65 20 75 73 75 61 6c | 20 63 75 72 73 6f 72 20 |he usual| cursor |
|00002fc0| 6d 6f 74 69 6f 6e 20 63 | 6f 6d 6d 61 6e 64 73 2e |motion c|ommands.|
|00002fd0| 20 0a 4c 65 74 74 65 72 | 73 20 6e 6f 20 6c 6f 6e | .Letter|s no lon|
|00002fe0| 67 65 72 20 69 6e 73 65 | 72 74 20 74 68 65 6d 73 |ger inse|rt thems|
|00002ff0| 65 6c 76 65 73 2e 0a 54 | 79 70 65 20 60 65 27 20 |elves..T|ype `e' |
|00003000| 74 6f 20 70 75 6c 6c 20 | 61 20 66 69 6c 65 20 6f |to pull |a file o|
|00003010| 75 74 20 6f 66 20 74 68 | 65 20 74 61 72 20 66 69 |ut of th|e tar fi|
|00003020| 6c 65 20 61 6e 64 20 69 | 6e 74 6f 20 69 74 73 20 |le and i|nto its |
|00003030| 6f 77 6e 20 62 75 66 66 | 65 72 3b 0a 6f 72 20 63 |own buff|er;.or c|
|00003040| 6c 69 63 6b 20 6d 6f 75 | 73 65 2d 32 20 6f 6e 20 |lick mou|se-2 on |
|00003050| 74 68 65 20 66 69 6c 65 | 27 73 20 6c 69 6e 65 20 |the file|'s line |
|00003060| 69 6e 20 74 68 65 20 54 | 61 72 20 6d 6f 64 65 20 |in the T|ar mode |
|00003070| 62 75 66 66 65 72 2e 0a | 54 79 70 65 20 60 63 27 |buffer..|Type `c'|
|00003080| 20 74 6f 20 63 6f 70 79 | 20 61 6e 20 65 6e 74 72 | to copy| an entr|
|00003090| 79 20 66 72 6f 6d 20 74 | 68 65 20 74 61 72 20 66 |y from t|he tar f|
|000030a0| 69 6c 65 20 69 6e 74 6f | 20 61 6e 6f 74 68 65 72 |ile into| another|
|000030b0| 20 66 69 6c 65 20 6f 6e | 20 64 69 73 6b 2e 0a 0a | file on| disk...|
|000030c0| 49 66 20 79 6f 75 20 65 | 64 69 74 20 61 20 73 75 |If you e|dit a su|
|000030d0| 62 2d 66 69 6c 65 20 6f | 66 20 74 68 69 73 20 61 |b-file o|f this a|
|000030e0| 72 63 68 69 76 65 20 28 | 61 73 20 77 69 74 68 20 |rchive (|as with |
|000030f0| 74 68 65 20 60 65 27 20 | 63 6f 6d 6d 61 6e 64 29 |the `e' |command)|
|00003100| 20 61 6e 64 20 0a 73 61 | 76 65 20 69 74 20 77 69 | and .sa|ve it wi|
|00003110| 74 68 20 43 6f 6e 74 72 | 6f 6c 2d 78 20 43 6f 6e |th Contr|ol-x Con|
|00003120| 74 72 6f 6c 2d 73 2c 20 | 74 68 65 20 63 6f 6e 74 |trol-s, |the cont|
|00003130| 65 6e 74 73 20 6f 66 20 | 74 68 61 74 20 62 75 66 |ents of |that buf|
|00003140| 66 65 72 20 77 69 6c 6c | 20 62 65 20 0a 73 61 76 |fer will| be .sav|
|00003150| 65 64 20 62 61 63 6b 20 | 69 6e 74 6f 20 74 68 65 |ed back |into the|
|00003160| 20 74 61 72 2d 66 69 6c | 65 20 62 75 66 66 65 72 | tar-fil|e buffer|
|00003170| 3b 20 69 6e 20 74 68 69 | 73 20 77 61 79 20 79 6f |; in thi|s way yo|
|00003180| 75 20 63 61 6e 20 65 64 | 69 74 20 61 20 66 69 6c |u can ed|it a fil|
|00003190| 65 20 0a 69 6e 73 69 64 | 65 20 6f 66 20 61 20 74 |e .insid|e of a t|
|000031a0| 61 72 20 61 72 63 68 69 | 76 65 20 77 69 74 68 6f |ar archi|ve witho|
|000031b0| 75 74 20 65 78 74 72 61 | 63 74 69 6e 67 20 69 74 |ut extra|cting it|
|000031c0| 20 61 6e 64 20 72 65 2d | 61 72 63 68 69 76 69 6e | and re-|archivin|
|000031d0| 67 20 69 74 2e 0a 0a 53 | 65 65 20 61 6c 73 6f 3a |g it...S|ee also:|
|000031e0| 20 76 61 72 69 61 62 6c | 65 73 20 60 74 61 72 2d | variabl|es `tar-|
|000031f0| 75 70 64 61 74 65 2d 64 | 61 74 65 73 74 61 6d 70 |update-d|atestamp|
|00003200| 27 20 61 6e 64 20 60 74 | 61 72 2d 61 6e 61 6c 2d |' and `t|ar-anal-|
|00003210| 62 6c 6f 63 6b 73 69 7a | 65 27 2e 0a 5c 7b 74 61 |blocksiz|e'..\{ta|
|00003220| 72 2d 6d 6f 64 65 2d 6d | 61 70 7d 1f 0a 28 64 65 |r-mode-m|ap}..(de|
|00003230| 66 61 6c 69 61 73 20 27 | 74 61 72 2d 6d 6f 64 65 |falias '|tar-mode|
|00003240| 20 23 5b 6e 69 6c 20 22 | c0 20 88 c1 c2 21 88 c1 | #[nil "|. ...!..|
|00003250| c3 21 88 c1 c4 21 88 c5 | 14 c1 c6 21 88 c7 16 06 |.!...!..|...!....|
|00003260| c1 c8 21 88 c5 16 08 c1 | c9 21 88 c5 16 09 ca 16 |..!.....|.!......|
|00003270| 0b cc 16 0d ce 0e 0f 21 | 88 d0 d1 21 88 c1 d2 21 |.......!|...!...!|
|00003280| 88 d3 16 12 7e 88 d4 c2 | 21 83 4f 00 5c 6e 83 4f |....~...|!.O.\n.O|
|00003290| 00 d5 5c 6e 7d 88 82 52 | 00 d6 20 88 d7 d8 21 87 |..\n}..R|.. ...!.|
|000032a0| 22 20 5b 6b 69 6c 6c 2d | 61 6c 6c 2d 6c 6f 63 61 |" [kill-|all-loca|
|000032b0| 6c 2d 76 61 72 69 61 62 | 6c 65 73 20 6d 61 6b 65 |l-variab|les make|
|000032c0| 2d 6c 6f 63 61 6c 2d 76 | 61 72 69 61 62 6c 65 20 |-local-v|ariable |
|000032d0| 74 61 72 2d 68 65 61 64 | 65 72 2d 6f 66 66 73 65 |tar-head|er-offse|
|000032e0| 74 20 74 61 72 2d 70 61 | 72 73 65 2d 69 6e 66 6f |t tar-pa|rse-info|
|000032f0| 20 72 65 71 75 69 72 65 | 2d 66 69 6e 61 6c 2d 6e | require|-final-n|
|00003300| 65 77 6c 69 6e 65 20 6e | 69 6c 20 72 65 76 65 72 |ewline n|il rever|
|00003310| 74 2d 62 75 66 66 65 72 | 2d 66 75 6e 63 74 69 6f |t-buffer|-functio|
|00003320| 6e 20 74 61 72 2d 6d 6f | 64 65 2d 72 65 76 65 72 |n tar-mo|de-rever|
|00003330| 74 20 65 6e 61 62 6c 65 | 2d 6c 6f 63 61 6c 2d 76 |t enable|-local-v|
|00003340| 61 72 69 61 62 6c 65 73 | 20 6e 65 78 74 2d 6c 69 |ariables| next-li|
|00003350| 6e 65 2d 61 64 64 2d 6e | 65 77 6c 69 6e 65 73 20 |ne-add-n|ewlines |
|00003360| 74 61 72 2d 6d 6f 64 65 | 20 6d 61 6a 6f 72 2d 6d |tar-mode| major-m|
|00003370| 6f 64 65 20 22 54 61 72 | 22 20 6d 6f 64 65 2d 6e |ode "Tar|" mode-n|
|00003380| 61 6d 65 20 75 73 65 2d | 6c 6f 63 61 6c 2d 6d 61 |ame use-|local-ma|
|00003390| 70 20 74 61 72 2d 6d 6f | 64 65 2d 6d 61 70 20 61 |p tar-mo|de-map a|
|000033a0| 75 74 6f 2d 73 61 76 65 | 2d 6d 6f 64 65 20 30 20 |uto-save|-mode 0 |
|000033b0| 77 72 69 74 65 2d 63 6f | 6e 74 65 6e 74 73 2d 68 |write-co|ntents-h|
|000033c0| 6f 6f 6b 73 20 28 74 61 | 72 2d 6d 6f 64 65 2d 77 |ooks (ta|r-mode-w|
|000033d0| 72 69 74 65 2d 66 69 6c | 65 29 20 62 6f 75 6e 64 |rite-fil|e) bound|
|000033e0| 70 20 31 20 74 61 72 2d | 73 75 6d 6d 61 72 69 7a |p 1 tar-|summariz|
|000033f0| 65 2d 62 75 66 66 65 72 | 20 72 75 6e 2d 68 6f 6f |e-buffer| run-hoo|
|00003400| 6b 73 20 74 61 72 2d 6d | 6f 64 65 2d 68 6f 6f 6b |ks tar-m|ode-hook|
|00003410| 5d 20 32 20 28 23 24 20 | 2e 20 31 32 31 30 36 29 |] 2 (#$ |. 12106)|
|00003420| 5d 29 0a 23 40 32 33 35 | 20 4d 69 6e 6f 72 20 6d |]).#@235| Minor m|
|00003430| 6f 64 65 20 66 6f 72 20 | 65 64 69 74 69 6e 67 20 |ode for |editing |
|00003440| 61 6e 20 65 6c 65 6d 65 | 6e 74 20 6f 66 20 61 20 |an eleme|nt of a |
|00003450| 74 61 72 2d 66 69 6c 65 | 2e 0a 54 68 69 73 20 6d |tar-file|..This m|
|00003460| 6f 64 65 20 61 72 72 61 | 6e 67 65 73 20 66 6f 72 |ode arra|nges for|
|00003470| 20 22 73 61 76 69 6e 67 | 22 20 74 68 69 73 20 62 | "saving|" this b|
|00003480| 75 66 66 65 72 20 74 6f | 20 77 72 69 74 65 20 74 |uffer to| write t|
|00003490| 68 65 20 64 61 74 61 0a | 69 6e 74 6f 20 74 68 65 |he data.|into the|
|000034a0| 20 74 61 72 2d 66 69 6c | 65 20 62 75 66 66 65 72 | tar-fil|e buffer|
|000034b0| 20 74 68 61 74 20 69 74 | 20 63 61 6d 65 20 66 72 | that it| came fr|
|000034c0| 6f 6d 2e 20 20 54 68 65 | 20 63 68 61 6e 67 65 73 |om.  The| changes|
|000034d0| 20 77 69 6c 6c 20 61 63 | 74 75 61 6c 6c 79 0a 61 | will ac|tually.a|
|000034e0| 70 70 65 61 72 20 6f 6e | 20 64 69 73 6b 20 77 68 |ppear on| disk wh|
|000034f0| 65 6e 20 79 6f 75 20 73 | 61 76 65 20 74 68 65 20 |en you s|ave the |
|00003500| 74 61 72 2d 66 69 6c 65 | 27 73 20 62 75 66 66 65 |tar-file|'s buffe|
|00003510| 72 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 74 |r...(def|alias 't|
|00003520| 61 72 2d 73 75 62 66 69 | 6c 65 2d 6d 6f 64 65 20 |ar-subfi|le-mode |
|00003530| 23 5b 28 70 29 20 22 c0 | c1 21 83 5c 6e 00 09 84 |#[(p) ".|.!.\n...|
|00003540| 0e 00 c2 c3 21 88 c4 c5 | 21 88 0e 06 84 1c 00 0d |....!...|!.......|
|00003550| 3f 82 5c 22 00 c7 0e 06 | 21 c8 56 89 15 83 39 00 |?.\"....|!.V...9.|
|00003560| c4 c9 21 88 ca 16 09 cb | cc 21 88 cc 16 0d ce cf |..!.....|.!......|
|00003570| 21 87 d0 c9 21 87 22 20 | 5b 62 6f 75 6e 64 70 20 |!...!." |[boundp |
|00003580| 74 61 72 2d 73 75 70 65 | 72 69 6f 72 2d 62 75 66 |tar-supe|rior-buf|
|00003590| 66 65 72 20 65 72 72 6f | 72 20 22 54 68 69 73 20 |fer erro|r "This |
|000035a0| 62 75 66 66 65 72 20 69 | 73 20 6e 6f 74 20 61 6e |buffer i|s not an|
|000035b0| 20 65 6c 65 6d 65 6e 74 | 20 6f 66 20 61 20 74 61 | element| of a ta|
|000035c0| 72 20 66 69 6c 65 22 20 | 6d 61 6b 65 2d 6c 6f 63 |r file" |make-loc|
|000035d0| 61 6c 2d 76 61 72 69 61 | 62 6c 65 20 74 61 72 2d |al-varia|ble tar-|
|000035e0| 73 75 62 66 69 6c 65 2d | 6d 6f 64 65 20 70 20 70 |subfile-|mode p p|
|000035f0| 72 65 66 69 78 2d 6e 75 | 6d 65 72 69 63 2d 76 61 |refix-nu|meric-va|
|00003600| 6c 75 65 20 30 20 6c 6f | 63 61 6c 2d 77 72 69 74 |lue 0 lo|cal-writ|
|00003610| 65 2d 66 69 6c 65 2d 68 | 6f 6f 6b 73 20 28 74 61 |e-file-h|ooks (ta|
|00003620| 72 2d 73 75 62 66 69 6c | 65 2d 73 61 76 65 2d 62 |r-subfil|e-save-b|
|00003630| 75 66 66 65 72 29 20 61 | 75 74 6f 2d 73 61 76 65 |uffer) a|uto-save|
|00003640| 2d 6d 6f 64 65 20 6e 69 | 6c 20 62 75 66 66 65 72 |-mode ni|l buffer|
|00003650| 2d 61 75 74 6f 2d 73 61 | 76 65 2d 66 69 6c 65 2d |-auto-sa|ve-file-|
|00003660| 6e 61 6d 65 20 72 75 6e | 2d 68 6f 6f 6b 73 20 74 |name run|-hooks t|
|00003670| 61 72 2d 73 75 62 66 69 | 6c 65 2d 6d 6f 64 65 2d |ar-subfi|le-mode-|
|00003680| 68 6f 6f 6b 20 6b 69 6c | 6c 2d 6c 6f 63 61 6c 2d |hook kil|l-local-|
|00003690| 76 61 72 69 61 62 6c 65 | 5d 20 33 20 28 23 24 20 |variable|] 3 (#$ |
|000036a0| 2e 20 31 33 33 35 33 29 | 20 22 50 22 5d 29 0a 28 |. 13353)| "P"]).(|
|000036b0| 64 65 66 61 6c 69 61 73 | 20 27 74 61 72 2d 6d 6f |defalias| 'tar-mo|
|000036c0| 64 65 2d 72 65 76 65 72 | 74 20 23 5b 28 26 6f 70 |de-rever|t #[(&op|
|000036d0| 74 69 6f 6e 61 6c 20 6e | 6f 2d 61 75 74 6f 73 61 |tional n|o-autosa|
|000036e0| 76 65 20 6e 6f 2d 63 6f | 6e 66 69 72 6d 29 20 22 |ve no-co|nfirm) "|
|000036f0| c0 09 c0 1a 1b 1c c0 11 | c5 8e c6 c7 0e 08 5c 22 |........|......\"|
|00003700| 85 18 00 7e 88 c7 12 c9 | 20 2c 87 22 20 5b 6e 69 |...~....| ,." [ni|
|00003710| 6c 20 74 61 72 2d 68 65 | 61 64 65 72 2d 6f 66 66 |l tar-he|ader-off|
|00003720| 73 65 74 20 73 75 63 63 | 65 73 73 20 6f 6c 64 2d |set succ|ess old-|
|00003730| 6f 66 66 73 65 74 20 72 | 65 76 65 72 74 2d 62 75 |offset r|evert-bu|
|00003740| 66 66 65 72 2d 66 75 6e | 63 74 69 6f 6e 20 28 28 |ffer-fun|ction ((|
|00003750| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 84 06 00 09 |byte-cod|e ".....|
|00003760| 12 c3 87 22 20 5b 73 75 | 63 63 65 73 73 20 6f 6c |..." [su|ccess ol|
|00003770| 64 2d 6f 66 66 73 65 74 | 20 74 61 72 2d 68 65 61 |d-offset| tar-hea|
|00003780| 64 65 72 2d 6f 66 66 73 | 65 74 20 6e 69 6c 5d 20 |der-offs|et nil] |
|00003790| 31 29 29 20 72 65 76 65 | 72 74 2d 62 75 66 66 65 |1)) reve|rt-buffe|
|000037a0| 72 20 74 20 6e 6f 2d 63 | 6f 6e 66 69 72 6d 20 74 |r t no-c|onfirm t|
|000037b0| 61 72 2d 6d 6f 64 65 5d | 20 33 5d 29 0a 28 64 65 |ar-mode]| 3]).(de|
|000037c0| 66 61 6c 69 61 73 20 27 | 74 61 72 2d 6e 65 78 74 |falias '|tar-next|
|000037d0| 2d 6c 69 6e 65 20 23 5b | 28 70 29 20 22 08 79 88 |-line #[|(p) ".y.|
|000037e0| 6d 3f 85 12 00 09 83 10 | 00 c2 82 11 00 c3 75 87 |m?......|......u.|
|000037f0| 22 20 5b 70 20 74 61 72 | 2d 6d 6f 64 65 2d 73 68 |" [p tar|-mode-sh|
|00003800| 6f 77 2d 64 61 74 65 20 | 35 34 20 33 36 5d 20 31 |ow-date |54 36] 1|
|00003810| 20 6e 69 6c 20 22 70 22 | 5d 29 0a 28 64 65 66 61 | nil "p"|]).(defa|
|00003820| 6c 69 61 73 20 27 74 61 | 72 2d 70 72 65 76 69 6f |lias 'ta|r-previo|
|00003830| 75 73 2d 6c 69 6e 65 20 | 23 5b 28 70 29 20 22 c0 |us-line |#[(p) ".|
|00003840| 09 5b 21 87 22 20 5b 74 | 61 72 2d 6e 65 78 74 2d |.[!." [t|ar-next-|
|00003850| 6c 69 6e 65 20 70 5d 20 | 32 20 6e 69 6c 20 22 70 |line p] |2 nil "p|
|00003860| 22 5d 29 0a 23 40 36 39 | 20 52 65 74 75 72 6e 20 |"]).#@69| Return |
|00003870| 74 68 65 20 74 61 72 2d | 64 65 73 63 72 69 70 74 |the tar-|descript|
|00003880| 6f 72 20 6f 66 20 74 68 | 65 20 63 75 72 72 65 6e |or of th|e curren|
|00003890| 74 20 6c 69 6e 65 2c 20 | 6f 72 20 73 69 67 6e 61 |t line, |or signa|
|000038a0| 6c 73 20 61 6e 20 65 72 | 72 6f 72 2e 1f 0a 28 64 |ls an er|ror...(d|
|000038b0| 65 66 61 6c 69 61 73 20 | 27 74 61 72 2d 63 75 72 |efalias |'tar-cur|
|000038c0| 72 65 6e 74 2d 64 65 73 | 63 72 69 70 74 6f 72 20 |rent-des|criptor |
|000038d0| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 6e 6f 65 |#[(&opti|onal noe|
|000038e0| 72 72 6f 72 29 20 22 c0 | 65 8a c1 79 88 60 29 5c |rror) ".|e..y.`)\|
|000038f0| 22 5c 6e 38 86 16 00 0b | 3f 85 16 00 c4 c5 21 87 |"\n8....|?.....!.|
|00003900| 22 20 5b 63 6f 75 6e 74 | 2d 6c 69 6e 65 73 20 30 |" [count|-lines 0|
|00003910| 20 74 61 72 2d 70 61 72 | 73 65 2d 69 6e 66 6f 20 | tar-par|se-info |
|00003920| 6e 6f 65 72 72 6f 72 20 | 65 72 72 6f 72 20 22 54 |noerror |error "T|
|00003930| 68 69 73 20 6c 69 6e 65 | 20 64 6f 65 73 20 6e 6f |his line| does no|
|00003940| 74 20 64 65 73 63 72 69 | 62 65 20 61 20 74 61 72 |t descri|be a tar|
|00003950| 2d 66 69 6c 65 20 65 6e | 74 72 79 22 5d 20 33 20 |-file en|try"] 3 |
|00003960| 28 23 24 20 2e 20 31 34 | 34 34 31 29 5d 29 0a 28 |(#$ . 14|441)]).(|
|00003970| 64 65 66 61 6c 69 61 73 | 20 27 74 61 72 2d 67 65 |defalias| 'tar-ge|
|00003980| 74 2d 64 65 73 63 72 69 | 70 74 6f 72 20 23 5b 6e |t-descri|ptor #[n|
|00003990| 69 6c 20 22 c0 20 89 19 | 41 89 1a c3 48 1c 5c 6e |il ". ..|A...H.\n|
|000039a0| c5 48 89 1e 06 83 4f 00 | c7 c8 0e 06 c9 3d 83 20 |.H....O.|.....=. |
|000039b0| 00 ca 82 4d 00 0e 06 cb | 3d 83 2b 00 cc 82 4d 00 |...M....|=.+...M.|
|000039c0| 0e 06 cd 3d 83 36 00 ce | 82 4d 00 0e 06 cf 3d 83 |...=.6..|.M....=.|
|000039d0| 41 00 d0 82 4d 00 0e 06 | d1 3d 83 4c 00 d2 82 4d |A...M...|.=.L...M|
|000039e0| 00 d3 5c 22 88 5c 66 d4 | 55 83 59 00 c7 d5 21 88 |..\".\f.|U.Y...!.|
|000039f0| 09 2c 87 22 20 5b 74 61 | 72 2d 63 75 72 72 65 6e |.,." [ta|r-curren|
|00003a00| 74 2d 64 65 73 63 72 69 | 70 74 6f 72 20 64 65 73 |t-descri|ptor des|
|00003a10| 63 72 69 70 74 6f 72 20 | 74 6f 6b 65 6e 73 20 34 |criptor |tokens 4|
|00003a20| 20 73 69 7a 65 20 37 20 | 6c 69 6e 6b 2d 70 20 65 | size 7 |link-p e|
|00003a30| 72 72 6f 72 20 22 54 68 | 69 73 20 69 73 20 61 20 |rror "Th|is is a |
|00003a40| 25 73 2c 20 6e 6f 74 20 | 61 20 72 65 61 6c 20 66 |%s, not |a real f|
|00003a50| 69 6c 65 22 20 35 20 22 | 64 69 72 65 63 74 6f 72 |ile" 5 "|director|
|00003a60| 79 22 20 32 30 20 22 74 | 61 72 20 64 69 72 65 63 |y" 20 "t|ar direc|
|00003a70| 74 6f 72 79 20 68 65 61 | 64 65 72 22 20 32 39 20 |tory hea|der" 29 |
|00003a80| 22 6d 75 6c 74 69 76 6f | 6c 75 6d 65 2d 63 6f 6e |"multivo|lume-con|
|00003a90| 74 69 6e 75 61 74 69 6f | 6e 22 20 33 35 20 22 73 |tinuatio|n" 35 "s|
|00003aa0| 70 61 72 73 65 20 65 6e | 74 72 79 22 20 33 38 20 |parse en|try" 38 |
|00003ab0| 22 76 6f 6c 75 6d 65 20 | 68 65 61 64 65 72 22 20 |"volume |header" |
|00003ac0| 22 6c 69 6e 6b 22 20 30 | 20 22 54 68 69 73 20 69 |"link" 0| "This i|
|00003ad0| 73 20 61 20 7a 65 72 6f | 2d 6c 65 6e 67 74 68 20 |s a zero|-length |
|00003ae0| 66 69 6c 65 22 5d 20 35 | 5d 29 0a 23 40 35 35 20 |file"] 5|]).#@55 |
|00003af0| 45 78 74 72 61 63 74 20 | 61 20 66 69 6c 65 20 77 |Extract |a file w|
|00003b00| 68 6f 73 65 20 74 61 72 | 20 64 69 72 65 63 74 6f |hose tar| directo|
|00003b10| 72 79 20 6c 69 6e 65 20 | 79 6f 75 20 63 6c 69 63 |ry line |you clic|
|00003b20| 6b 20 6f 6e 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |k on...(|defalias|
|00003b30| 20 27 74 61 72 2d 6d 6f | 75 73 65 2d 65 78 74 72 | 'tar-mo|use-extr|
|00003b40| 61 63 74 20 23 5b 28 65 | 76 65 6e 74 29 20 22 8a |act #[(e|vent) ".|
|00003b50| c0 09 19 c2 09 38 3a 83 | 0f 00 c2 82 10 00 c3 09 |.....8:.|........|
|00003b60| 38 29 89 1c 40 29 21 71 | 88 8a 09 19 c2 09 38 3a |8)..@)!q|......8:|
|00003b70| 83 28 00 c2 82 29 00 c3 | 09 38 29 89 1c 41 40 3a |.(...)..|.8)..A@:|
|00003b80| 83 3b 00 5c 66 41 40 40 | 82 3e 00 5c 66 41 40 29 |.;.\fA@@|.>.\fA@)|
|00003b90| 62 88 c5 20 88 2a c6 09 | 19 c2 09 38 3a 83 53 00 |b.. .*..|...8:.S.|
|00003ba0| c2 82 54 00 c3 09 38 29 | 89 1c 40 29 21 88 09 19 |..T...8)|..@)!...|
|00003bb0| c2 09 38 3a 83 6a 00 c2 | 82 6b 00 c3 09 38 29 89 |..8:.j..|.k...8).|
|00003bc0| 1c 41 40 3a 83 7d 00 5c | 66 41 40 40 82 80 00 5c |.A@:.}.\|fA@@...\|
|00003bd0| 66 41 40 29 62 88 c7 20 | 87 22 20 5b 77 69 6e 64 |fA@)b.. |." [wind|
|00003be0| 6f 77 2d 62 75 66 66 65 | 72 20 65 76 65 6e 74 20 |ow-buffe|r event |
|00003bf0| 32 20 31 20 70 6f 73 69 | 74 69 6f 6e 20 74 61 72 |2 1 posi|tion tar|
|00003c00| 2d 67 65 74 2d 64 65 73 | 63 72 69 70 74 6f 72 20 |-get-des|criptor |
|00003c10| 73 65 6c 65 63 74 2d 77 | 69 6e 64 6f 77 20 74 61 |select-w|indow ta|
|00003c20| 72 2d 65 78 74 72 61 63 | 74 5d 20 34 20 28 23 24 |r-extrac|t] 4 (#$|
|00003c30| 20 2e 20 31 35 30 38 38 | 29 20 22 65 22 5d 29 0a | . 15088|) "e"]).|
|00003c40| 23 40 37 30 20 49 6e 20 | 54 61 72 20 6d 6f 64 65 |#@70 In |Tar mode|
|00003c50| 2c 20 65 78 74 72 61 63 | 74 20 74 68 69 73 20 65 |, extrac|t this e|
|00003c60| 6e 74 72 79 20 6f 66 20 | 74 68 65 20 74 61 72 20 |ntry of |the tar |
|00003c70| 66 69 6c 65 20 69 6e 74 | 6f 20 69 74 73 20 6f 77 |file int|o its ow|
|00003c80| 6e 20 62 75 66 66 65 72 | 2e 1f 0a 28 64 65 66 61 |n buffer|...(defa|
|00003c90| 6c 69 61 73 20 27 74 61 | 72 2d 65 78 74 72 61 63 |lias 'ta|r-extrac|
|00003ca0| 74 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 6f |t #[(&op|tional o|
|00003cb0| 74 68 65 72 2d 77 69 6e | 64 6f 77 2d 70 29 20 22 |ther-win|dow-p) "|
|00003cc0| 08 c1 3d 1a c3 20 89 1c | 41 89 1d c6 48 1e 07 0d |..=.. ..|A...H...|
|00003cd0| c8 48 1e 09 5c 66 40 0e | 5c 6e 5c 5c cb 5c 5c 89 |.H..\f@.|\n\\.\\.|
|00003ce0| 1e 5c 66 0e 09 5c 5c 1e | 0d 70 1e 0e cf d0 20 21 |.\f..\\.|.p.... !|
|00003cf0| 1e 11 cf 0e 07 21 d2 0e | 11 d3 52 1e 14 0e 15 86 |.....!..|..R.....|
|00003d00| 3d 00 5c 6e 1e 16 d7 0e | 14 21 1e 18 d9 1e 1a 0e |=.\n....|.!......|
|00003d10| 18 84 ae 00 db 0e 14 21 | 16 18 dc 16 1a dd 8e 7e |.......!|.......~|
|00003d20| 88 8a 0e 18 71 88 de 0e | 0e 0e 5c 66 0e 0d 23 88 |....q...|..\f..#.|
|00003d30| c6 62 88 df 0e 11 e0 0e | 07 51 21 16 10 e1 0e 10 |.b......|.Q!.....|
|00003d40| 21 16 5c 22 8a 0e 0e 71 | 88 0e 23 29 16 23 e4 20 |!.\"...q|..#).#. |
|00003d50| 88 e5 0e 14 21 88 e6 e7 | 21 88 e6 e8 21 88 0e 0e |....!...|!...!...|
|00003d60| 16 27 5c 66 16 28 0e 16 | 16 15 e9 d9 21 88 ea eb |.'\f.(..|....!...|
|00003d70| 21 88 29 0e 0e 71 88 29 | 5c 6e 83 c3 00 ec 0e 18 |!.)..q.)|\n......|
|00003d80| 21 88 0e 1a 85 df 00 ed | 89 16 2e 82 df 00 08 ef |!.......|........|
|00003d90| 3d 83 d0 00 f0 0e 18 21 | 82 df 00 08 83 db 00 f1 |=......!|........|
|00003da0| 0e 18 21 82 df 00 f2 0e | 18 21 2e 0d 87 22 20 5b |..!.....|.!..." [|
|00003db0| 6f 74 68 65 72 2d 77 69 | 6e 64 6f 77 2d 70 20 76 |other-wi|ndow-p v|
|00003dc0| 69 65 77 20 76 69 65 77 | 2d 70 20 74 61 72 2d 67 |iew view|-p tar-g|
|00003dd0| 65 74 2d 64 65 73 63 72 | 69 70 74 6f 72 20 64 65 |et-descr|iptor de|
|00003de0| 73 63 72 69 70 74 6f 72 | 20 74 6f 6b 65 6e 73 20 |scriptor| tokens |
|00003df0| 30 20 6e 61 6d 65 20 34 | 20 73 69 7a 65 20 74 61 |0 name 4| size ta|
|00003e00| 72 2d 68 65 61 64 65 72 | 2d 6f 66 66 73 65 74 20 |r-header|-offset |
|00003e10| 2d 31 20 73 74 61 72 74 | 20 65 6e 64 20 74 61 72 |-1 start| end tar|
|00003e20| 2d 62 75 66 66 65 72 20 | 66 69 6c 65 2d 6e 61 6d |-buffer |file-nam|
|00003e30| 65 2d 6e 6f 6e 64 69 72 | 65 63 74 6f 72 79 20 62 |e-nondir|ectory b|
|00003e40| 75 66 66 65 72 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |uffer-fi|le-name |
|00003e50| 74 61 72 6e 61 6d 65 20 | 22 20 28 22 20 22 29 22 |tarname |" (" ")"|
|00003e60| 20 62 75 66 6e 61 6d 65 | 20 62 75 66 66 65 72 2d | bufname| buffer-|
|00003e70| 72 65 61 64 2d 6f 6e 6c | 79 20 72 65 61 64 2d 6f |read-onl|y read-o|
|00003e80| 6e 6c 79 2d 70 20 67 65 | 74 2d 62 75 66 66 65 72 |nly-p ge|t-buffer|
|00003e90| 20 62 75 66 66 65 72 20 | 6e 69 6c 20 6a 75 73 74 | buffer |nil just|
|00003ea0| 2d 63 72 65 61 74 65 64 | 20 67 65 74 2d 62 75 66 |-created| get-buf|
|00003eb0| 66 65 72 2d 63 72 65 61 | 74 65 20 74 20 28 28 6e |fer-crea|te t ((n|
|00003ec0| 61 72 72 6f 77 2d 74 6f | 2d 72 65 67 69 6f 6e 20 |arrow-to|-region |
|00003ed0| 31 20 74 61 72 2d 68 65 | 61 64 65 72 2d 6f 66 66 |1 tar-he|ader-off|
|00003ee0| 73 65 74 29 29 20 69 6e | 73 65 72 74 2d 62 75 66 |set)) in|sert-buf|
|00003ef0| 66 65 72 2d 73 75 62 73 | 74 72 69 6e 67 20 65 78 |fer-subs|tring ex|
|00003f00| 70 61 6e 64 2d 66 69 6c | 65 2d 6e 61 6d 65 20 22 |pand-fil|e-name "|
|00003f10| 3a 22 20 61 62 62 72 65 | 76 69 61 74 65 2d 66 69 |:" abbre|viate-fi|
|00003f20| 6c 65 2d 6e 61 6d 65 20 | 62 75 66 66 65 72 2d 66 |le-name |buffer-f|
|00003f30| 69 6c 65 2d 74 72 75 65 | 6e 61 6d 65 20 64 65 66 |ile-true|name def|
|00003f40| 61 75 6c 74 2d 64 69 72 | 65 63 74 6f 72 79 20 6e |ault-dir|ectory n|
|00003f50| 6f 72 6d 61 6c 2d 6d 6f | 64 65 20 72 65 6e 61 6d |ormal-mo|de renam|
|00003f60| 65 2d 62 75 66 66 65 72 | 20 6d 61 6b 65 2d 6c 6f |e-buffer| make-lo|
|00003f70| 63 61 6c 2d 76 61 72 69 | 61 62 6c 65 20 74 61 72 |cal-vari|able tar|
|00003f80| 2d 73 75 70 65 72 69 6f | 72 2d 62 75 66 66 65 72 |-superio|r-buffer|
|00003f90| 20 74 61 72 2d 73 75 70 | 65 72 69 6f 72 2d 64 65 | tar-sup|erior-de|
|00003fa0| 73 63 72 69 70 74 6f 72 | 20 73 65 74 2d 62 75 66 |scriptor| set-buf|
|00003fb0| 66 65 72 2d 6d 6f 64 69 | 66 69 65 64 2d 70 20 74 |fer-modi|fied-p t|
|00003fc0| 61 72 2d 73 75 62 66 69 | 6c 65 2d 6d 6f 64 65 20 |ar-subfi|le-mode |
|00003fd0| 31 20 76 69 65 77 2d 62 | 75 66 66 65 72 20 6b 69 |1 view-b|uffer ki|
|00003fe0| 6c 6c 2d 62 75 66 66 65 | 72 20 76 69 65 77 2d 65 |ll-buffe|r view-e|
|00003ff0| 78 69 74 2d 61 63 74 69 | 6f 6e 20 64 69 73 70 6c |xit-acti|on displ|
|00004000| 61 79 20 64 69 73 70 6c | 61 79 2d 62 75 66 66 65 |ay displ|ay-buffe|
|00004010| 72 20 73 77 69 74 63 68 | 2d 74 6f 2d 62 75 66 66 |r switch|-to-buff|
|00004020| 65 72 2d 6f 74 68 65 72 | 2d 77 69 6e 64 6f 77 20 |er-other|-window |
|00004030| 73 77 69 74 63 68 2d 74 | 6f 2d 62 75 66 66 65 72 |switch-t|o-buffer|
|00004040| 5d 20 35 20 28 23 24 20 | 2e 20 31 35 34 32 39 29 |] 5 (#$ |. 15429)|
|00004050| 20 6e 69 6c 5d 29 0a 23 | 40 36 36 20 2a 49 6e 20 | nil]).#|@66 *In |
|00004060| 54 61 72 20 6d 6f 64 65 | 2c 20 66 69 6e 64 20 74 |Tar mode|, find t|
|00004070| 68 69 73 20 65 6e 74 72 | 79 20 6f 66 20 74 68 65 |his entr|y of the|
|00004080| 20 74 61 72 20 66 69 6c | 65 20 69 6e 20 61 6e 6f | tar fil|e in ano|
|00004090| 74 68 65 72 20 77 69 6e | 64 6f 77 2e 1f 0a 28 64 |ther win|dow...(d|
|000040a0| 65 66 61 6c 69 61 73 20 | 27 74 61 72 2d 65 78 74 |efalias |'tar-ext|
|000040b0| 72 61 63 74 2d 6f 74 68 | 65 72 2d 77 69 6e 64 6f |ract-oth|er-windo|
|000040c0| 77 20 23 5b 6e 69 6c 20 | 22 c0 c1 21 87 22 20 5b |w #[nil |"..!." [|
|000040d0| 74 61 72 2d 65 78 74 72 | 61 63 74 20 74 5d 20 32 |tar-extr|act t] 2|
|000040e0| 20 28 23 24 20 2e 20 2d | 31 36 34 37 36 29 20 6e | (#$ . -|16476) n|
|000040f0| 69 6c 5d 29 0a 23 40 36 | 39 20 2a 49 6e 20 54 61 |il]).#@6|9 *In Ta|
|00004100| 72 20 6d 6f 64 65 2c 20 | 64 69 73 70 6c 61 79 20 |r mode, |display |
|00004110| 74 68 69 73 20 65 6e 74 | 72 79 20 6f 66 20 74 68 |this ent|ry of th|
|00004120| 65 20 74 61 72 20 66 69 | 6c 65 20 69 6e 20 61 6e |e tar fi|le in an|
|00004130| 6f 74 68 65 72 20 77 69 | 6e 64 6f 77 2e 1f 0a 28 |other wi|ndow...(|
|00004140| 64 65 66 61 6c 69 61 73 | 20 27 74 61 72 2d 64 69 |defalias| 'tar-di|
|00004150| 73 70 6c 61 79 2d 6f 74 | 68 65 72 2d 77 69 6e 64 |splay-ot|her-wind|
|00004160| 6f 77 20 23 5b 6e 69 6c | 20 22 c0 c1 21 87 22 20 |ow #[nil| "..!." |
|00004170| 5b 74 61 72 2d 65 78 74 | 72 61 63 74 20 64 69 73 |[tar-ext|ract dis|
|00004180| 70 6c 61 79 5d 20 32 20 | 28 23 24 20 2e 20 2d 31 |play] 2 |(#$ . -1|
|00004190| 36 36 33 34 29 20 6e 69 | 6c 5d 29 0a 23 40 35 33 |6634) ni|l]).#@53|
|000041a0| 20 2a 49 6e 20 54 61 72 | 20 6d 6f 64 65 2c 20 76 | *In Tar| mode, v|
|000041b0| 69 65 77 20 74 68 65 20 | 74 61 72 20 66 69 6c 65 |iew the |tar file|
|000041c0| 20 65 6e 74 72 79 20 6f | 6e 20 74 68 69 73 20 6c | entry o|n this l|
|000041d0| 69 6e 65 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ine...(d|efalias |
|000041e0| 27 74 61 72 2d 76 69 65 | 77 20 23 5b 6e 69 6c 20 |'tar-vie|w #[nil |
|000041f0| 22 c0 c1 21 87 22 20 5b | 74 61 72 2d 65 78 74 72 |"..!." [|tar-extr|
|00004200| 61 63 74 20 76 69 65 77 | 5d 20 32 20 28 23 24 20 |act view|] 2 (#$ |
|00004210| 2e 20 2d 31 36 38 30 31 | 29 20 6e 69 6c 5d 29 0a |. -16801|) nil]).|
|00004220| 23 40 35 37 20 52 65 61 | 64 20 61 20 66 69 6c 65 |#@57 Rea|d a file|
|00004230| 20 6e 61 6d 65 20 77 69 | 74 68 20 74 68 69 73 20 | name wi|th this |
|00004240| 6c 69 6e 65 27 73 20 65 | 6e 74 72 79 20 61 73 20 |line's e|ntry as |
|00004250| 74 68 65 20 64 65 66 61 | 75 6c 74 2e 1f 0a 28 64 |the defa|ult...(d|
|00004260| 65 66 61 6c 69 61 73 20 | 27 74 61 72 2d 72 65 61 |efalias |'tar-rea|
|00004270| 64 2d 66 69 6c 65 2d 6e | 61 6d 65 20 23 5b 28 26 |d-file-n|ame #[(&|
|00004280| 6f 70 74 69 6f 6e 61 6c | 20 70 72 6f 6d 70 74 29 |optional| prompt)|
|00004290| 20 22 08 84 06 00 c1 10 | c2 c3 20 41 c4 48 21 1d | "......|.. A.H!.|
|000042a0| c2 c6 08 c7 0d 21 0d c8 | 24 21 1e 09 ca 0e 09 21 |.....!..|$!.....!|
|000042b0| cb 98 84 2a 00 cc 0e 09 | 21 83 45 00 cd ce 0e 09 |...*....|!.E.....|
|000042c0| 5c 22 83 3c 00 0e 09 c4 | 89 95 53 4f 82 3e 00 0e |\".<....|..SO.>..|
|000042d0| 09 cf ca 0d 21 51 16 09 | 0e 09 2a 87 22 20 5b 70 |....!Q..|..*." [p|
|000042e0| 72 6f 6d 70 74 20 22 43 | 6f 70 79 20 74 6f 3a 20 |rompt "C|opy to: |
|000042f0| 22 20 65 78 70 61 6e 64 | 2d 66 69 6c 65 2d 6e 61 |" expand|-file-na|
|00004300| 6d 65 20 74 61 72 2d 63 | 75 72 72 65 6e 74 2d 64 |me tar-c|urrent-d|
|00004310| 65 73 63 72 69 70 74 6f | 72 20 30 20 64 65 66 61 |escripto|r 0 defa|
|00004320| 75 6c 74 2d 66 69 6c 65 | 20 72 65 61 64 2d 66 69 |ult-file| read-fi|
|00004330| 6c 65 2d 6e 61 6d 65 20 | 66 69 6c 65 2d 6e 61 6d |le-name |file-nam|
|00004340| 65 2d 64 69 72 65 63 74 | 6f 72 79 20 6e 69 6c 20 |e-direct|ory nil |
|00004350| 74 61 72 67 65 74 20 66 | 69 6c 65 2d 6e 61 6d 65 |target f|ile-name|
|00004360| 2d 6e 6f 6e 64 69 72 65 | 63 74 6f 72 79 20 22 22 |-nondire|ctory ""|
|00004370| 20 66 69 6c 65 2d 64 69 | 72 65 63 74 6f 72 79 2d | file-di|rectory-|
|00004380| 70 20 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 |p string|-match "|
|00004390| 2f 24 22 20 22 2f 22 5d | 20 36 20 28 23 24 20 2e |/$" "/"]| 6 (#$ .|
|000043a0| 20 31 36 39 33 33 29 5d | 29 0a 23 40 31 36 38 20 | 16933)]|).#@168 |
|000043b0| 2a 49 6e 20 54 61 72 20 | 6d 6f 64 65 2c 20 65 78 |*In Tar |mode, ex|
|000043c0| 74 72 61 63 74 20 74 68 | 69 73 20 65 6e 74 72 79 |tract th|is entry|
|000043d0| 20 6f 66 20 74 68 65 20 | 74 61 72 20 66 69 6c 65 | of the |tar file|
|000043e0| 20 69 6e 74 6f 20 61 20 | 66 69 6c 65 20 6f 6e 20 | into a |file on |
|000043f0| 64 69 73 6b 2e 0a 49 66 | 20 54 4f 2d 46 49 4c 45 |disk..If| TO-FILE|
|00004400| 20 69 73 20 6e 6f 74 20 | 73 75 70 70 6c 69 65 64 | is not |supplied|
|00004410| 2c 20 69 74 20 69 73 20 | 70 72 6f 6d 70 74 65 64 |, it is |prompted|
|00004420| 20 66 6f 72 2c 20 64 65 | 66 61 75 6c 74 69 6e 67 | for, de|faulting|
|00004430| 20 74 6f 20 74 68 65 20 | 6e 61 6d 65 20 6f 66 0a | to the |name of.|
|00004440| 74 68 65 20 63 75 72 72 | 65 6e 74 20 74 61 72 2d |the curr|ent tar-|
|00004450| 65 6e 74 72 79 2e 1f 0a | 28 64 65 66 61 6c 69 61 |entry...|(defalia|
|00004460| 73 20 27 74 61 72 2d 63 | 6f 70 79 20 23 5b 28 26 |s 'tar-c|opy #[(&|
|00004470| 6f 70 74 69 6f 6e 61 6c | 20 74 6f 2d 66 69 6c 65 |optional| to-file|
|00004480| 29 20 22 c0 20 89 19 41 | 89 1a c3 48 1c 5c 6e c5 |) ". ..A|...H.\n.|
|00004490| 48 1e 06 09 40 0e 07 5c | 5c c8 5c 5c 89 1e 09 0e |H...@..\|\.\\....|
|000044a0| 06 5c 5c 1e 5c 6e 0e 0b | 1e 0b 0e 5c 66 1e 5c 66 |.\\.\n..|...\f.\f|
|000044b0| 8c 7e 88 cd 5c 66 ce 5c | 22 cf 3d 83 4c 00 cd 0e |.~..\f.\|".=.L...|
|000044c0| 10 ce 5c 22 cf 3d 83 4c | 00 cf 0e 5c 66 ce 3d 85 |..\".=.L|...\f.=.|
|000044d0| 46 00 0e 0b 42 16 0b ce | 16 5c 66 ce 0e 09 0e 5c |F...B...|.\f....\|
|000044e0| 6e 0e 10 23 88 29 d1 d2 | 5c 66 0e 10 23 2e 08 87 |n..#.)..|\f..#...|
|000044f0| 22 20 5b 74 61 72 2d 67 | 65 74 2d 64 65 73 63 72 |" [tar-g|et-descr|
|00004500| 69 70 74 6f 72 20 64 65 | 73 63 72 69 70 74 6f 72 |iptor de|scriptor|
|00004510| 20 74 6f 6b 65 6e 73 20 | 30 20 6e 61 6d 65 20 34 | tokens |0 name 4|
|00004520| 20 73 69 7a 65 20 74 61 | 72 2d 68 65 61 64 65 72 | size ta|r-header|
|00004530| 2d 6f 66 66 73 65 74 20 | 2d 31 20 73 74 61 72 74 |-offset |-1 start|
|00004540| 20 65 6e 64 20 69 6e 68 | 69 62 69 74 2d 66 69 6c | end inh|ibit-fil|
|00004550| 65 2d 6e 61 6d 65 2d 68 | 61 6e 64 6c 65 72 73 20 |e-name-h|andlers |
|00004560| 69 6e 68 69 62 69 74 2d | 66 69 6c 65 2d 6e 61 6d |inhibit-|file-nam|
|00004570| 65 2d 6f 70 65 72 61 74 | 69 6f 6e 20 66 69 6e 64 |e-operat|ion find|
|00004580| 2d 66 69 6c 65 2d 6e 61 | 6d 65 2d 68 61 6e 64 6c |-file-na|me-handl|
|00004590| 65 72 20 77 72 69 74 65 | 2d 72 65 67 69 6f 6e 20 |er write|-region |
|000045a0| 6a 6b 61 2d 63 6f 6d 70 | 72 2d 68 61 6e 64 6c 65 |jka-comp|r-handle|
|000045b0| 72 20 74 6f 2d 66 69 6c | 65 20 6d 65 73 73 61 67 |r to-fil|e messag|
|000045c0| 65 20 22 43 6f 70 69 65 | 64 20 74 61 72 20 65 6e |e "Copie|d tar en|
|000045d0| 74 72 79 20 25 73 20 74 | 6f 20 25 73 22 5d 20 35 |try %s t|o %s"] 5|
|000045e0| 20 28 23 24 20 2e 20 2d | 31 37 33 32 38 29 20 28 | (#$ . -|17328) (|
|000045f0| 6c 69 73 74 20 28 74 61 | 72 2d 72 65 61 64 2d 66 |list (ta|r-read-f|
|00004600| 69 6c 65 2d 6e 61 6d 65 | 29 29 5d 29 0a 23 40 31 |ile-name|))]).#@1|
|00004610| 31 33 20 2a 49 6e 20 54 | 61 72 20 6d 6f 64 65 2c |13 *In T|ar mode,|
|00004620| 20 6d 61 72 6b 20 74 68 | 69 73 20 73 75 62 2d 66 | mark th|is sub-f|
|00004630| 69 6c 65 20 74 6f 20 62 | 65 20 64 65 6c 65 74 65 |ile to b|e delete|
|00004640| 64 20 66 72 6f 6d 20 74 | 68 65 20 74 61 72 20 66 |d from t|he tar f|
|00004650| 69 6c 65 2e 0a 57 69 74 | 68 20 61 20 70 72 65 66 |ile..Wit|h a pref|
|00004660| 69 78 20 61 72 67 75 6d | 65 6e 74 2c 20 6d 61 72 |ix argum|ent, mar|
|00004670| 6b 20 74 68 61 74 20 6d | 61 6e 79 20 66 69 6c 65 |k that m|any file|
|00004680| 73 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 74 |s...(def|alias 't|
|00004690| 61 72 2d 66 6c 61 67 2d | 64 65 6c 65 74 65 64 20 |ar-flag-|deleted |
|000046a0| 23 5b 28 70 20 26 6f 70 | 74 69 6f 6e 61 6c 20 75 |#[(p &op|tional u|
|000046b0| 6e 66 6c 61 67 29 20 22 | c0 79 88 09 c0 57 83 0e |nflag) "|.y...W..|
|000046c0| 00 09 5b 82 0f 00 09 c0 | 1a 1b 5c 6e 0b 57 83 41 |..[.....|..\n.W.A|
|000046d0| 00 c4 0d 21 83 2d 00 c6 | c7 21 88 0d 83 2a 00 c8 |...!.-..|.!...*..|
|000046e0| 82 2b 00 c9 63 88 09 c0 | 57 83 37 00 ca 82 38 00 |.+..c...|W.7...8.|
|000046f0| c7 79 88 5c 6e 54 89 12 | 82 13 00 2a 6d 3f 85 49 |.y.\nT..|...*m?.I|
|00004700| 00 cb 75 87 22 20 5b 30 | 20 70 20 69 20 5f 64 6f |..u." [0| p i _do|
|00004710| 74 69 6d 65 73 5f 65 6e | 64 5f 20 74 61 72 2d 63 |times_en|d_ tar-c|
|00004720| 75 72 72 65 6e 74 2d 64 | 65 73 63 72 69 70 74 6f |urrent-d|escripto|
|00004730| 72 20 75 6e 66 6c 61 67 | 20 64 65 6c 65 74 65 2d |r unflag| delete-|
|00004740| 63 68 61 72 20 31 20 22 | 20 22 20 22 44 22 20 2d |char 1 "| " "D" -|
|00004750| 31 20 33 36 5d 20 33 20 | 28 23 24 20 2e 20 2d 31 |1 36] 3 |(#$ . -1|
|00004760| 37 39 33 39 29 20 22 70 | 22 5d 29 0a 23 40 31 32 |7939) "p|"]).#@12|
|00004770| 35 20 2a 49 6e 20 54 61 | 72 20 6d 6f 64 65 2c 20 |5 *In Ta|r mode, |
|00004780| 75 6e 2d 6d 61 72 6b 20 | 74 68 69 73 20 73 75 62 |un-mark |this sub|
|00004790| 2d 66 69 6c 65 20 69 66 | 20 69 74 20 69 73 20 6d |-file if| it is m|
|000047a0| 61 72 6b 65 64 20 74 6f | 20 62 65 20 64 65 6c 65 |arked to| be dele|
|000047b0| 74 65 64 2e 0a 57 69 74 | 68 20 61 20 70 72 65 66 |ted..Wit|h a pref|
|000047c0| 69 78 20 61 72 67 75 6d | 65 6e 74 2c 20 75 6e 2d |ix argum|ent, un-|
|000047d0| 6d 61 72 6b 20 74 68 61 | 74 20 6d 61 6e 79 20 66 |mark tha|t many f|
|000047e0| 69 6c 65 73 20 66 6f 72 | 77 61 72 64 2e 1f 0a 28 |iles for|ward...(|
|000047f0| 64 65 66 61 6c 69 61 73 | 20 27 74 61 72 2d 75 6e |defalias| 'tar-un|
|00004800| 66 6c 61 67 20 23 5b 28 | 70 29 20 22 c0 09 c2 5c |flag #[(|p) "...\|
|00004810| 22 87 22 20 5b 74 61 72 | 2d 66 6c 61 67 2d 64 65 |"." [tar|-flag-de|
|00004820| 6c 65 74 65 64 20 70 20 | 74 5d 20 33 20 28 23 24 |leted p |t] 3 (#$|
|00004830| 20 2e 20 2d 31 38 32 39 | 30 29 20 22 70 22 5d 29 | . -1829|0) "p"])|
|00004840| 0a 23 40 31 32 36 20 2a | 49 6e 20 54 61 72 20 6d |.#@126 *|In Tar m|
|00004850| 6f 64 65 2c 20 75 6e 2d | 6d 61 72 6b 20 74 68 69 |ode, un-|mark thi|
|00004860| 73 20 73 75 62 2d 66 69 | 6c 65 20 69 66 20 69 74 |s sub-fi|le if it|
|00004870| 20 69 73 20 6d 61 72 6b | 65 64 20 74 6f 20 62 65 | is mark|ed to be|
|00004880| 20 64 65 6c 65 74 65 64 | 2e 0a 57 69 74 68 20 61 | deleted|..With a|
|00004890| 20 70 72 65 66 69 78 20 | 61 72 67 75 6d 65 6e 74 | prefix |argument|
|000048a0| 2c 20 75 6e 2d 6d 61 72 | 6b 20 74 68 61 74 20 6d |, un-mar|k that m|
|000048b0| 61 6e 79 20 66 69 6c 65 | 73 20 62 61 63 6b 77 61 |any file|s backwa|
|000048c0| 72 64 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |rd...(de|falias '|
|000048d0| 74 61 72 2d 75 6e 66 6c | 61 67 2d 62 61 63 6b 77 |tar-unfl|ag-backw|
|000048e0| 61 72 64 73 20 23 5b 28 | 70 29 20 22 c0 09 5b c2 |ards #[(|p) "..[.|
|000048f0| 5c 22 87 22 20 5b 74 61 | 72 2d 66 6c 61 67 2d 64 |\"." [ta|r-flag-d|
|00004900| 65 6c 65 74 65 64 20 70 | 20 74 5d 20 33 20 28 23 |eleted p| t] 3 (#|
|00004910| 24 20 2e 20 2d 31 38 35 | 30 33 29 20 22 70 22 5d |$ . -185|03) "p"]|
|00004920| 29 0a 23 40 35 34 20 45 | 78 70 75 6e 67 65 20 74 |).#@54 E|xpunge t|
|00004930| 68 65 20 74 61 72 2d 65 | 6e 74 72 79 20 73 70 65 |he tar-e|ntry spe|
|00004940| 63 69 66 69 65 64 20 62 | 79 20 74 68 65 20 63 75 |cified b|y the cu|
|00004950| 72 72 65 6e 74 20 6c 69 | 6e 65 2e 1f 0a 28 64 65 |rrent li|ne...(de|
|00004960| 66 61 6c 69 61 73 20 27 | 74 61 72 2d 65 78 70 75 |falias '|tar-expu|
|00004970| 6e 67 65 2d 69 6e 74 65 | 72 6e 61 6c 20 23 5b 6e |nge-inte|rnal #[n|
|00004980| 69 6c 20 22 c0 20 89 19 | 41 1a 09 40 1b 5c 6e c4 |il ". ..|A..@.\n.|
|00004990| 48 1d 5c 6e c6 48 1e 07 | 5c 6e c8 48 1e 09 09 40 |H.\n.H..|\n.H...@|
|000049a0| 1e 5c 6e 09 0e 0b 3e 41 | 1e 5c 66 0e 09 83 2a 00 |.\n...>A|.\f...*.|
|000049b0| c4 16 07 c4 79 88 60 1e | 0d ce 7f 88 ce 75 88 60 |....y.`.|.....u.`|
|000049c0| 0e 0d 5a 1e 0f 0e 0d 60 | 7c 88 0e 10 0e 0f 5a 16 |..Z....`||.....Z.|
|000049d0| 10 2a d1 09 0e 0b 5c 22 | 16 0b 7e 88 0e 5c 6e 0e |.*....\"|..~..\n.|
|000049e0| 10 5c 5c d2 5c 5c 89 1e | 13 d4 89 0e 07 d5 5c 5c |.\\.\\..|......\\|
|000049f0| d6 5c 22 d7 5c 22 5c 5c | d8 5c 5c 1e 19 0e 13 0e |.\".\"\\|.\\.....|
|00004a00| 19 7c 88 0e 19 0e 13 5a | 1e 1a 0e 5c 66 1e 1b 0e |.|.....Z|...\f...|
|00004a10| 1b 83 97 00 0e 1b 40 89 | 1e 1c 89 40 0e 1a 5a a0 |......@.|...@..Z.|
|00004a20| 88 0e 1b 41 16 1b 29 82 | 7c 00 2e 5c 66 dd 0e 10 |...A..).||..\f...|
|00004a30| 7d 87 22 20 5b 74 61 72 | 2d 63 75 72 72 65 6e 74 |}." [tar|-current|
|00004a40| 2d 64 65 73 63 72 69 70 | 74 6f 72 20 64 65 73 63 |-descrip|tor desc|
|00004a50| 72 69 70 74 6f 72 20 74 | 6f 6b 65 6e 73 20 6c 69 |riptor t|okens li|
|00004a60| 6e 65 20 30 20 6e 61 6d | 65 20 34 20 73 69 7a 65 |ne 0 nam|e 4 size|
|00004a70| 20 37 20 6c 69 6e 6b 2d | 70 20 73 74 61 72 74 20 | 7 link-|p start |
|00004a80| 74 61 72 2d 70 61 72 73 | 65 2d 69 6e 66 6f 20 66 |tar-pars|e-info f|
|00004a90| 6f 6c 6c 6f 77 69 6e 67 | 2d 64 65 73 63 73 20 6c |ollowing|-descs l|
|00004aa0| 69 6e 65 2d 73 74 61 72 | 74 20 6e 69 6c 20 6c 69 |ine-star|t nil li|
|00004ab0| 6e 65 2d 6c 65 6e 20 74 | 61 72 2d 68 65 61 64 65 |ne-len t|ar-heade|
|00004ac0| 72 2d 6f 66 66 73 65 74 | 20 64 65 6c 71 20 2d 35 |r-offset| delq -5|
|00004ad0| 31 33 20 64 61 74 61 2d | 73 74 61 72 74 20 61 73 |13 data-|start as|
|00004ae0| 68 20 35 31 31 20 2d 39 | 20 39 20 35 31 32 20 64 |h 511 -9| 9 512 d|
|00004af0| 61 74 61 2d 65 6e 64 20 | 64 61 74 61 2d 6c 65 6e |ata-end |data-len|
|00004b00| 67 74 68 20 5f 64 6f 6c | 69 73 74 5f 69 74 65 72 |gth _dol|ist_iter|
|00004b10| 61 74 6f 72 5f 20 64 65 | 73 63 20 31 5d 20 36 20 |ator_ de|sc 1] 6 |
|00004b20| 28 23 24 20 2e 20 31 38 | 37 32 37 29 5d 29 0a 23 |(#$ . 18|727)]).#|
|00004b30| 40 31 36 34 20 2a 49 6e | 20 54 61 72 20 6d 6f 64 |@164 *In| Tar mod|
|00004b40| 65 2c 20 64 65 6c 65 74 | 65 20 61 6c 6c 20 74 68 |e, delet|e all th|
|00004b50| 65 20 61 72 63 68 69 76 | 65 64 20 66 69 6c 65 73 |e archiv|ed files|
|00004b60| 20 66 6c 61 67 67 65 64 | 20 66 6f 72 20 64 65 6c | flagged| for del|
|00004b70| 65 74 69 6f 6e 2e 0a 54 | 68 69 73 20 64 6f 65 73 |etion..T|his does|
|00004b80| 20 6e 6f 74 20 6d 6f 64 | 69 66 79 20 74 68 65 20 | not mod|ify the |
|00004b90| 64 69 73 6b 20 69 6d 61 | 67 65 3b 20 79 6f 75 20 |disk ima|ge; you |
|00004ba0| 6d 75 73 74 20 73 61 76 | 65 20 74 68 65 20 74 61 |must sav|e the ta|
|00004bb0| 72 20 66 69 6c 65 20 69 | 74 73 65 6c 66 0a 66 6f |r file i|tself.fo|
|00004bc0| 72 20 74 68 69 73 20 74 | 6f 20 62 65 20 70 65 72 |r this t|o be per|
|00004bd0| 6d 61 6e 65 6e 74 2e 1f | 0a 28 64 65 66 61 6c 69 |manent..|.(defali|
|00004be0| 61 73 20 27 74 61 72 2d | 65 78 70 75 6e 67 65 20 |as 'tar-|expunge |
|00004bf0| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 6e 6f 63 |#[(&opti|onal noc|
|00004c00| 6f 6e 66 69 72 6d 29 20 | 22 08 84 5c 6e 00 c1 c2 |onfirm) |"..\n...|
|00004c10| 21 85 43 00 c3 1c 8a c3 | 62 88 6d 84 29 00 c5 c6 |!.C.....|b.m.)...|
|00004c20| 21 83 23 00 c7 20 88 5c | 66 54 14 82 10 00 c8 79 |!.#.. .\|fT.....y|
|00004c30| 88 82 10 00 c9 20 88 c8 | 0e 5c 6e 7d 88 29 5c 66 |..... ..|.\n}.)\f|
|00004c40| c3 55 83 3e 00 cb cc 21 | 82 42 00 cb cd 5c 66 5c |.U.>...!|.B...\f\|
|00004c50| 22 29 87 22 20 5b 6e 6f | 63 6f 6e 66 69 72 6d 20 |")." [no|confirm |
|00004c60| 79 2d 6f 72 2d 6e 2d 70 | 20 22 45 78 70 75 6e 67 |y-or-n-p| "Expung|
|00004c70| 65 20 66 69 6c 65 73 20 | 6d 61 72 6b 65 64 20 66 |e files |marked f|
|00004c80| 6f 72 20 64 65 6c 65 74 | 69 6f 6e 3f 20 22 20 30 |or delet|ion? " 0|
|00004c90| 20 6e 20 6c 6f 6f 6b 69 | 6e 67 2d 61 74 20 22 44 | n looki|ng-at "D|
|00004ca0| 22 20 74 61 72 2d 65 78 | 70 75 6e 67 65 2d 69 6e |" tar-ex|punge-in|
|00004cb0| 74 65 72 6e 61 6c 20 31 | 20 74 61 72 2d 70 61 64 |ternal 1| tar-pad|
|00004cc0| 2d 74 6f 2d 62 6c 6f 63 | 6b 73 69 7a 65 20 74 61 |-to-bloc|ksize ta|
|00004cd0| 72 2d 68 65 61 64 65 72 | 2d 6f 66 66 73 65 74 20 |r-header|-offset |
|00004ce0| 6d 65 73 73 61 67 65 20 | 22 4e 6f 74 68 69 6e 67 |message |"Nothing|
|00004cf0| 20 74 6f 20 65 78 70 75 | 6e 67 65 2e 22 20 22 25 | to expu|nge." "%|
|00004d00| 73 20 66 69 6c 65 73 20 | 65 78 70 75 6e 67 65 64 |s files |expunged|
|00004d10| 2e 20 20 42 65 20 73 75 | 72 65 20 74 6f 20 73 61 |.  Be su|re to sa|
|00004d20| 76 65 20 74 68 69 73 20 | 62 75 66 66 65 72 2e 22 |ve this |buffer."|
|00004d30| 5d 20 33 20 28 23 24 20 | 2e 20 2d 31 39 32 35 33 |] 3 (#$ |. -19253|
|00004d40| 29 20 6e 69 6c 5d 29 0a | 23 40 34 39 20 52 65 6d |) nil]).|#@49 Rem|
|00004d50| 6f 76 65 20 74 68 65 20 | 73 74 61 72 73 20 61 74 |ove the |stars at|
|00004d60| 20 74 68 65 20 62 65 67 | 69 6e 6e 69 6e 67 20 6f | the beg|inning o|
|00004d70| 66 20 65 61 63 68 20 6c | 69 6e 65 2e 1f 0a 28 64 |f each l|ine...(d|
|00004d80| 65 66 61 6c 69 61 73 20 | 27 74 61 72 2d 63 6c 65 |efalias |'tar-cle|
|00004d90| 61 72 2d 6d 6f 64 69 66 | 69 63 61 74 69 6f 6e 2d |ar-modif|ication-|
|00004da0| 66 6c 61 67 73 20 23 5b | 6e 69 6c 20 22 8a c0 62 |flags #[|nil "..b|
|00004db0| 88 60 09 57 85 1d 00 67 | c2 3d 84 17 00 c3 c0 21 |.`.W...g|.=.....!|
|00004dc0| 88 c4 63 88 c0 79 88 82 | 04 00 29 87 22 20 5b 31 |..c..y..|..)." [1|
|00004dd0| 20 74 61 72 2d 68 65 61 | 64 65 72 2d 6f 66 66 73 | tar-hea|der-offs|
|00004de0| 65 74 20 33 32 20 64 65 | 6c 65 74 65 2d 63 68 61 |et 32 de|lete-cha|
|00004df0| 72 20 22 20 22 5d 20 32 | 20 28 23 24 20 2e 20 31 |r " "] 2| (#$ . 1|
|00004e00| 39 37 38 39 29 20 6e 69 | 6c 5d 29 0a 23 40 33 36 |9789) ni|l]).#@36|
|00004e10| 38 20 2a 43 68 61 6e 67 | 65 20 74 68 65 20 75 73 |8 *Chang|e the us|
|00004e20| 65 72 2d 69 64 20 61 73 | 73 6f 63 69 61 74 65 64 |er-id as|sociated|
|00004e30| 20 77 69 74 68 20 74 68 | 69 73 20 65 6e 74 72 79 | with th|is entry|
|00004e40| 20 69 6e 20 74 68 65 20 | 74 61 72 20 66 69 6c 65 | in the |tar file|
|00004e50| 2e 0a 49 66 20 74 68 69 | 73 20 74 61 72 20 66 69 |..If thi|s tar fi|
|00004e60| 6c 65 20 77 61 73 20 77 | 72 69 74 74 65 6e 20 62 |le was w|ritten b|
|00004e70| 79 20 47 4e 55 20 74 61 | 72 2c 20 74 68 65 6e 20 |y GNU ta|r, then |
|00004e80| 79 6f 75 20 77 69 6c 6c | 20 62 65 20 61 62 6c 65 |you will| be able|
|00004e90| 20 74 6f 20 65 64 69 74 | 0a 74 68 65 20 75 73 65 | to edit|.the use|
|00004ea0| 72 20 69 64 20 61 73 20 | 61 20 73 74 72 69 6e 67 |r id as |a string|
|00004eb0| 3b 20 6f 74 68 65 72 77 | 69 73 65 2c 20 79 6f 75 |; otherw|ise, you|
|00004ec0| 20 6d 75 73 74 20 65 64 | 69 74 20 69 74 20 61 73 | must ed|it it as|
|00004ed0| 20 61 20 6e 75 6d 62 65 | 72 2e 0a 59 6f 75 20 63 | a numbe|r..You c|
|00004ee0| 61 6e 20 66 6f 72 63 65 | 20 65 64 69 74 69 6e 67 |an force| editing|
|00004ef0| 20 61 73 20 61 20 6e 75 | 6d 62 65 72 20 62 79 20 | as a nu|mber by |
|00004f00| 63 61 6c 6c 69 6e 67 20 | 74 68 69 73 20 77 69 74 |calling |this wit|
|00004f10| 68 20 61 20 70 72 65 66 | 69 78 20 61 72 67 2e 0a |h a pref|ix arg..|
|00004f20| 54 68 69 73 20 64 6f 65 | 73 20 6e 6f 74 20 6d 6f |This doe|s not mo|
|00004f30| 64 69 66 79 20 74 68 65 | 20 64 69 73 6b 20 69 6d |dify the| disk im|
|00004f40| 61 67 65 3b 20 79 6f 75 | 20 6d 75 73 74 20 73 61 |age; you| must sa|
|00004f50| 76 65 20 74 68 65 20 74 | 61 72 20 66 69 6c 65 20 |ve the t|ar file |
|00004f60| 69 74 73 65 6c 66 0a 66 | 6f 72 20 74 68 69 73 20 |itself.f|or this |
|00004f70| 74 6f 20 62 65 20 70 65 | 72 6d 61 6e 65 6e 74 2e |to be pe|rmanent.|
|00004f80| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 74 61 72 |..(defal|ias 'tar|
|00004f90| 2d 63 68 6f 77 6e 2d 65 | 6e 74 72 79 20 23 5b 28 |-chown-e|ntry #[(|
|00004fa0| 6e 65 77 2d 75 69 64 29 | 20 22 08 3b 83 13 00 c1 |new-uid)| ".;....|
|00004fb0| 20 41 c2 08 49 88 c3 5c | 66 08 c5 50 5c 22 87 c1 | A..I..\|f..P\"..|
|00004fc0| 20 41 c6 08 49 88 c3 0e | 07 c8 c9 08 5c 22 ca cb | A..I...|....\"..|
|00004fd0| 4f cc 50 5c 22 87 22 20 | 5b 6e 65 77 2d 75 69 64 |O.P\"." |[new-uid|
|00004fe0| 20 74 61 72 2d 63 75 72 | 72 65 6e 74 2d 64 65 73 | tar-cur|rent-des|
|00004ff0| 63 72 69 70 74 6f 72 20 | 31 30 20 74 61 72 2d 61 |criptor |10 tar-a|
|00005000| 6c 74 65 72 2d 6f 6e 65 | 2d 66 69 65 6c 64 20 74 |lter-one|-field t|
|00005010| 61 72 2d 75 6e 61 6d 65 | 2d 6f 66 66 73 65 74 20 |ar-uname|-offset |
|00005020| 22 00 22 20 32 20 74 61 | 72 2d 75 69 64 2d 6f 66 |"." 2 ta|r-uid-of|
|00005030| 66 73 65 74 20 66 6f 72 | 6d 61 74 20 22 25 36 6f |fset for|mat "%6o|
|00005040| 22 20 30 20 36 20 22 00 | 20 22 5d 20 35 20 28 23 |" 0 6 ".| "] 5 (#|
|00005050| 24 20 2e 20 2d 31 39 39 | 38 36 29 20 28 6c 69 73 |$ . -199|86) (lis|
|00005060| 74 20 28 6c 65 74 20 28 | 28 74 6f 6b 65 6e 73 20 |t (let (|(tokens |
|00005070| 28 74 61 72 2d 64 65 73 | 63 2d 74 6f 6b 65 6e 73 |(tar-des|c-tokens|
|00005080| 20 28 74 61 72 2d 63 75 | 72 72 65 6e 74 2d 64 65 | (tar-cu|rrent-de|
|00005090| 73 63 72 69 70 74 6f 72 | 29 29 29 29 20 28 69 66 |scriptor|)))) (if|
|000050a0| 20 28 6f 72 20 63 75 72 | 72 65 6e 74 2d 70 72 65 | (or cur|rent-pre|
|000050b0| 66 69 78 2d 61 72 67 20 | 28 6e 6f 74 20 28 74 61 |fix-arg |(not (ta|
|000050c0| 72 2d 68 65 61 64 65 72 | 2d 6d 61 67 69 63 20 74 |r-header|-magic t|
|000050d0| 6f 6b 65 6e 73 29 29 29 | 20 28 6c 65 74 20 28 6e |okens)))| (let (n|
|000050e0| 29 20 28 77 68 69 6c 65 | 20 28 6e 6f 74 20 28 6e |) (while| (not (n|
|000050f0| 75 6d 62 65 72 70 20 28 | 73 65 74 71 20 6e 20 28 |umberp (|setq n (|
|00005100| 72 65 61 64 2d 6d 69 6e | 69 62 75 66 66 65 72 20 |read-min|ibuffer |
|00005110| 22 4e 65 77 20 55 49 44 | 20 6e 75 6d 62 65 72 3a |"New UID| number:|
|00005120| 20 22 20 28 66 6f 72 6d | 61 74 20 22 25 73 22 20 | " (form|at "%s" |
|00005130| 28 74 61 72 2d 68 65 61 | 64 65 72 2d 75 69 64 20 |(tar-hea|der-uid |
|00005140| 74 6f 6b 65 6e 73 29 29 | 29 29 29 29 29 20 6e 29 |tokens))|))))) n)|
|00005150| 20 28 72 65 61 64 2d 73 | 74 72 69 6e 67 20 22 4e | (read-s|tring "N|
|00005160| 65 77 20 55 49 44 20 73 | 74 72 69 6e 67 3a 20 22 |ew UID s|tring: "|
|00005170| 20 28 74 61 72 2d 68 65 | 61 64 65 72 2d 75 6e 61 | (tar-he|ader-una|
|00005180| 6d 65 20 74 6f 6b 65 6e | 73 29 29 29 29 29 5d 29 |me token|s)))))])|
|00005190| 0a 23 40 33 37 30 20 2a | 43 68 61 6e 67 65 20 74 |.#@370 *|Change t|
|000051a0| 68 65 20 67 72 6f 75 70 | 2d 69 64 20 61 73 73 6f |he group|-id asso|
|000051b0| 63 69 61 74 65 64 20 77 | 69 74 68 20 74 68 69 73 |ciated w|ith this|
|000051c0| 20 65 6e 74 72 79 20 69 | 6e 20 74 68 65 20 74 61 | entry i|n the ta|
|000051d0| 72 20 66 69 6c 65 2e 0a | 49 66 20 74 68 69 73 20 |r file..|If this |
|000051e0| 74 61 72 20 66 69 6c 65 | 20 77 61 73 20 77 72 69 |tar file| was wri|
|000051f0| 74 74 65 6e 20 62 79 20 | 47 4e 55 20 74 61 72 2c |tten by |GNU tar,|
|00005200| 20 74 68 65 6e 20 79 6f | 75 20 77 69 6c 6c 20 62 | then yo|u will b|
|00005210| 65 20 61 62 6c 65 20 74 | 6f 20 65 64 69 74 0a 74 |e able t|o edit.t|
|00005220| 68 65 20 67 72 6f 75 70 | 20 69 64 20 61 73 20 61 |he group| id as a|
|00005230| 20 73 74 72 69 6e 67 3b | 20 6f 74 68 65 72 77 69 | string;| otherwi|
|00005240| 73 65 2c 20 79 6f 75 20 | 6d 75 73 74 20 65 64 69 |se, you |must edi|
|00005250| 74 20 69 74 20 61 73 20 | 61 20 6e 75 6d 62 65 72 |t it as |a number|
|00005260| 2e 0a 59 6f 75 20 63 61 | 6e 20 66 6f 72 63 65 20 |..You ca|n force |
|00005270| 65 64 69 74 69 6e 67 20 | 61 73 20 61 20 6e 75 6d |editing |as a num|
|00005280| 62 65 72 20 62 79 20 63 | 61 6c 6c 69 6e 67 20 74 |ber by c|alling t|
|00005290| 68 69 73 20 77 69 74 68 | 20 61 20 70 72 65 66 69 |his with| a prefi|
|000052a0| 78 20 61 72 67 2e 0a 54 | 68 69 73 20 64 6f 65 73 |x arg..T|his does|
|000052b0| 20 6e 6f 74 20 6d 6f 64 | 69 66 79 20 74 68 65 20 | not mod|ify the |
|000052c0| 64 69 73 6b 20 69 6d 61 | 67 65 3b 20 79 6f 75 20 |disk ima|ge; you |
|000052d0| 6d 75 73 74 20 73 61 76 | 65 20 74 68 65 20 74 61 |must sav|e the ta|
|000052e0| 72 20 66 69 6c 65 20 69 | 74 73 65 6c 66 0a 66 6f |r file i|tself.fo|
|000052f0| 72 20 74 68 69 73 20 74 | 6f 20 62 65 20 70 65 72 |r this t|o be per|
|00005300| 6d 61 6e 65 6e 74 2e 1f | 0a 28 64 65 66 61 6c 69 |manent..|.(defali|
|00005310| 61 73 20 27 74 61 72 2d | 63 68 67 72 70 2d 65 6e |as 'tar-|chgrp-en|
|00005320| 74 72 79 20 23 5b 28 6e | 65 77 2d 67 69 64 29 20 |try #[(n|ew-gid) |
|00005330| 22 08 3b 83 13 00 c1 20 | 41 c2 08 49 88 c3 5c 66 |".;.... |A..I..\f|
|00005340| 08 c5 50 5c 22 87 c1 20 | 41 c6 08 49 88 c3 0e 07 |..P\".. |A..I....|
|00005350| c8 c9 08 5c 22 ca cb 4f | cc 50 5c 22 87 22 20 5b |...\"..O|.P\"." [|
|00005360| 6e 65 77 2d 67 69 64 20 | 74 61 72 2d 63 75 72 72 |new-gid |tar-curr|
|00005370| 65 6e 74 2d 64 65 73 63 | 72 69 70 74 6f 72 20 31 |ent-desc|riptor 1|
|00005380| 31 20 74 61 72 2d 61 6c | 74 65 72 2d 6f 6e 65 2d |1 tar-al|ter-one-|
|00005390| 66 69 65 6c 64 20 74 61 | 72 2d 67 6e 61 6d 65 2d |field ta|r-gname-|
|000053a0| 6f 66 66 73 65 74 20 22 | 00 22 20 33 20 74 61 72 |offset "|." 3 tar|
|000053b0| 2d 67 69 64 2d 6f 66 66 | 73 65 74 20 66 6f 72 6d |-gid-off|set form|
|000053c0| 61 74 20 22 25 36 6f 22 | 20 30 20 36 20 22 00 20 |at "%6o"| 0 6 ". |
|000053d0| 22 5d 20 35 20 28 23 24 | 20 2e 20 2d 32 30 38 38 |"] 5 (#$| . -2088|
|000053e0| 37 29 20 28 6c 69 73 74 | 20 28 6c 65 74 20 28 28 |7) (list| (let ((|
|000053f0| 74 6f 6b 65 6e 73 20 28 | 74 61 72 2d 64 65 73 63 |tokens (|tar-desc|
|00005400| 2d 74 6f 6b 65 6e 73 20 | 28 74 61 72 2d 63 75 72 |-tokens |(tar-cur|
|00005410| 72 65 6e 74 2d 64 65 73 | 63 72 69 70 74 6f 72 29 |rent-des|criptor)|
|00005420| 29 29 29 20 28 69 66 20 | 28 6f 72 20 63 75 72 72 |))) (if |(or curr|
|00005430| 65 6e 74 2d 70 72 65 66 | 69 78 2d 61 72 67 20 28 |ent-pref|ix-arg (|
|00005440| 6e 6f 74 20 28 74 61 72 | 2d 68 65 61 64 65 72 2d |not (tar|-header-|
|00005450| 6d 61 67 69 63 20 74 6f | 6b 65 6e 73 29 29 29 20 |magic to|kens))) |
|00005460| 28 6c 65 74 20 28 6e 29 | 20 28 77 68 69 6c 65 20 |(let (n)| (while |
|00005470| 28 6e 6f 74 20 28 6e 75 | 6d 62 65 72 70 20 28 73 |(not (nu|mberp (s|
|00005480| 65 74 71 20 6e 20 28 72 | 65 61 64 2d 6d 69 6e 69 |etq n (r|ead-mini|
|00005490| 62 75 66 66 65 72 20 22 | 4e 65 77 20 47 49 44 20 |buffer "|New GID |
|000054a0| 6e 75 6d 62 65 72 3a 20 | 22 20 28 66 6f 72 6d 61 |number: |" (forma|
|000054b0| 74 20 22 25 73 22 20 28 | 74 61 72 2d 68 65 61 64 |t "%s" (|tar-head|
|000054c0| 65 72 2d 67 69 64 20 74 | 6f 6b 65 6e 73 29 29 29 |er-gid t|okens)))|
|000054d0| 29 29 29 29 20 6e 29 20 | 28 72 65 61 64 2d 73 74 |)))) n) |(read-st|
|000054e0| 72 69 6e 67 20 22 4e 65 | 77 20 47 49 44 20 73 74 |ring "Ne|w GID st|
|000054f0| 72 69 6e 67 3a 20 22 20 | 28 74 61 72 2d 68 65 61 |ring: " |(tar-hea|
|00005500| 64 65 72 2d 67 6e 61 6d | 65 20 74 6f 6b 65 6e 73 |der-gnam|e tokens|
|00005510| 29 29 29 29 29 5d 29 0a | 23 40 31 35 39 20 2a 43 |)))))]).|#@159 *C|
|00005520| 68 61 6e 67 65 20 74 68 | 65 20 6e 61 6d 65 20 61 |hange th|e name a|
|00005530| 73 73 6f 63 69 61 74 65 | 64 20 77 69 74 68 20 74 |ssociate|d with t|
|00005540| 68 69 73 20 65 6e 74 72 | 79 20 69 6e 20 74 68 65 |his entr|y in the|
|00005550| 20 74 61 72 20 66 69 6c | 65 2e 0a 54 68 69 73 20 | tar fil|e..This |
|00005560| 64 6f 65 73 20 6e 6f 74 | 20 6d 6f 64 69 66 79 20 |does not| modify |
|00005570| 74 68 65 20 64 69 73 6b | 20 69 6d 61 67 65 3b 20 |the disk| image; |
|00005580| 79 6f 75 20 6d 75 73 74 | 20 73 61 76 65 20 74 68 |you must| save th|
|00005590| 65 20 74 61 72 20 66 69 | 6c 65 20 69 74 73 65 6c |e tar fi|le itsel|
|000055a0| 66 0a 66 6f 72 20 74 68 | 69 73 20 74 6f 20 62 65 |f.for th|is to be|
|000055b0| 20 70 65 72 6d 61 6e 65 | 6e 74 2e 1f 0a 28 64 65 | permane|nt...(de|
|000055c0| 66 61 6c 69 61 73 20 27 | 74 61 72 2d 72 65 6e 61 |falias '|tar-rena|
|000055d0| 6d 65 2d 65 6e 74 72 79 | 20 23 5b 28 6e 65 77 2d |me-entry| #[(new-|
|000055e0| 6e 61 6d 65 29 20 22 08 | c1 98 83 5c 6e 00 c2 c3 |name) ".|...\n...|
|000055f0| 21 88 08 47 c4 56 83 15 | 00 c2 c5 21 88 c6 20 41 |!..G.V..|...!.. A|
|00005600| c7 08 49 88 c8 c7 08 c9 | ca c7 5c 22 50 c7 ca 4f |..I.....|..\"P..O|
|00005610| 5c 22 87 22 20 5b 6e 65 | 77 2d 6e 61 6d 65 20 22 |\"." [ne|w-name "|
|00005620| 22 20 65 72 72 6f 72 20 | 22 7a 65 72 6f 20 6c 65 |" error |"zero le|
|00005630| 6e 67 74 68 20 6e 61 6d | 65 22 20 39 38 20 22 6e |ngth nam|e" 98 "n|
|00005640| 61 6d 65 20 74 6f 6f 20 | 6c 6f 6e 67 22 20 74 61 |ame too |long" ta|
|00005650| 72 2d 63 75 72 72 65 6e | 74 2d 64 65 73 63 72 69 |r-curren|t-descri|
|00005660| 70 74 6f 72 20 30 20 74 | 61 72 2d 61 6c 74 65 72 |ptor 0 t|ar-alter|
|00005670| 2d 6f 6e 65 2d 66 69 65 | 6c 64 20 6d 61 6b 65 2d |-one-fie|ld make-|
|00005680| 73 74 72 69 6e 67 20 39 | 39 5d 20 36 20 28 23 24 |string 9|9] 6 (#$|
|00005690| 20 2e 20 2d 32 31 37 39 | 30 29 20 28 6c 69 73 74 | . -2179|0) (list|
|000056a0| 20 28 72 65 61 64 2d 73 | 74 72 69 6e 67 20 22 4e | (read-s|tring "N|
|000056b0| 65 77 20 6e 61 6d 65 3a | 20 22 20 28 74 61 72 2d |ew name:| " (tar-|
|000056c0| 68 65 61 64 65 72 2d 6e | 61 6d 65 20 28 74 61 72 |header-n|ame (tar|
|000056d0| 2d 64 65 73 63 2d 74 6f | 6b 65 6e 73 20 28 74 61 |-desc-to|kens (ta|
|000056e0| 72 2d 63 75 72 72 65 6e | 74 2d 64 65 73 63 72 69 |r-curren|t-descri|
|000056f0| 70 74 6f 72 29 29 29 29 | 29 5d 29 0a 23 40 31 37 |ptor))))|)]).#@17|
|00005700| 30 20 2a 43 68 61 6e 67 | 65 20 74 68 65 20 70 72 |0 *Chang|e the pr|
|00005710| 6f 74 65 63 74 69 6f 6e | 20 62 69 74 73 20 61 73 |otection| bits as|
|00005720| 73 6f 63 69 61 74 65 64 | 20 77 69 74 68 20 74 68 |sociated| with th|
|00005730| 69 73 20 65 6e 74 72 79 | 20 69 6e 20 74 68 65 20 |is entry| in the |
|00005740| 74 61 72 20 66 69 6c 65 | 2e 0a 54 68 69 73 20 64 |tar file|..This d|
|00005750| 6f 65 73 20 6e 6f 74 20 | 6d 6f 64 69 66 79 20 74 |oes not |modify t|
|00005760| 68 65 20 64 69 73 6b 20 | 69 6d 61 67 65 3b 20 79 |he disk |image; y|
|00005770| 6f 75 20 6d 75 73 74 20 | 73 61 76 65 20 74 68 65 |ou must |save the|
|00005780| 20 74 61 72 20 66 69 6c | 65 20 69 74 73 65 6c 66 | tar fil|e itself|
|00005790| 0a 66 6f 72 20 74 68 69 | 73 20 74 6f 20 62 65 20 |.for thi|s to be |
|000057a0| 70 65 72 6d 61 6e 65 6e | 74 2e 1f 0a 28 64 65 66 |permanen|t...(def|
|000057b0| 61 6c 69 61 73 20 27 74 | 61 72 2d 63 68 6d 6f 64 |alias 't|ar-chmod|
|000057c0| 2d 65 6e 74 72 79 20 23 | 5b 28 6e 65 77 2d 6d 6f |-entry #|[(new-mo|
|000057d0| 64 65 29 20 22 c0 20 41 | c1 5c 6e 49 88 c3 5c 66 |de) ". A|.\nI..\f|
|000057e0| c5 c6 5c 6e 5c 22 c7 c8 | 4f c9 50 5c 22 87 22 20 |..\n\"..|O.P\"." |
|000057f0| 5b 74 61 72 2d 63 75 72 | 72 65 6e 74 2d 64 65 73 |[tar-cur|rent-des|
|00005800| 63 72 69 70 74 6f 72 20 | 31 20 6e 65 77 2d 6d 6f |criptor |1 new-mo|
|00005810| 64 65 20 74 61 72 2d 61 | 6c 74 65 72 2d 6f 6e 65 |de tar-a|lter-one|
|00005820| 2d 66 69 65 6c 64 20 74 | 61 72 2d 6d 6f 64 65 2d |-field t|ar-mode-|
|00005830| 6f 66 66 73 65 74 20 66 | 6f 72 6d 61 74 20 22 25 |offset f|ormat "%|
|00005840| 36 6f 22 20 30 20 36 20 | 22 00 20 22 5d 20 35 20 |6o" 0 6 |". "] 5 |
|00005850| 28 23 24 20 2e 20 2d 32 | 32 32 37 34 29 20 28 6c |(#$ . -2|2274) (l|
|00005860| 69 73 74 20 28 74 61 72 | 2d 70 61 72 73 65 2d 6f |ist (tar|-parse-o|
|00005870| 63 74 61 6c 2d 69 6e 74 | 65 67 65 72 2d 73 61 66 |ctal-int|eger-saf|
|00005880| 65 20 28 72 65 61 64 2d | 73 74 72 69 6e 67 20 22 |e (read-|string "|
|00005890| 4e 65 77 20 70 72 6f 74 | 65 63 74 69 6f 6e 20 28 |New prot|ection (|
|000058a0| 6f 63 74 61 6c 29 3a 20 | 22 29 29 29 5d 29 0a 28 |octal): |")))]).(|
|000058b0| 64 65 66 61 6c 69 61 73 | 20 27 74 61 72 2d 61 6c |defalias| 'tar-al|
|000058c0| 74 65 72 2d 6f 6e 65 2d | 66 69 65 6c 64 20 23 5b |ter-one-|field #[|
|000058d0| 28 64 61 74 61 2d 70 6f | 73 69 74 69 6f 6e 20 6e |(data-po|sition n|
|000058e0| 65 77 2d 64 61 74 61 2d | 73 74 72 69 6e 67 29 20 |ew-data-|string) |
|000058f0| 22 c0 20 89 19 41 1a c3 | 8e 8a c4 79 88 60 1d c6 |". ..A..|...y.`..|
|00005900| 79 88 0d 60 7c 88 c7 5c | 6e 21 c8 b1 02 88 64 16 |y..`|..\|n!....d.|
|00005910| 09 29 7e 88 09 40 0e 09 | 5c 5c ca 5c 5c 89 1e 0b |.)~..@..|\\.\\...|
|00005920| 0e 5c 66 5c 5c 62 88 60 | 60 0e 0d 47 5c 5c 7c 88 |.\f\\b.`|`..G\\|.|
|00005930| 0e 0d 63 88 ce 0e 0b 89 | cf 5c 5c 7b 21 1e 10 0e |..c.....|.\\{!...|
|00005940| 0b 0e 11 5c 5c 62 88 60 | 60 d2 5c 5c 7c 88 d3 d4 |...\\b.`|`.\\|...|
|00005950| 0e 10 5c 22 63 88 c4 63 | 88 d5 63 88 5c 6e d6 0e |..\"c..c|..c.\n..|
|00005960| 10 49 88 d7 0e 0b 89 cf | 5c 5c 7b 0e 10 5c 6e c4 |.I......|\\{..\n.|
|00005970| 48 23 2e 06 87 22 20 5b | 74 61 72 2d 63 75 72 72 |H#..." [|tar-curr|
|00005980| 65 6e 74 2d 64 65 73 63 | 72 69 70 74 6f 72 20 64 |ent-desc|riptor d|
|00005990| 65 73 63 72 69 70 74 6f | 72 20 74 6f 6b 65 6e 73 |escripto|r tokens|
|000059a0| 20 28 28 6e 61 72 72 6f | 77 2d 74 6f 2d 72 65 67 | ((narro|w-to-reg|
|000059b0| 69 6f 6e 20 31 20 74 61 | 72 2d 68 65 61 64 65 72 |ion 1 ta|r-header|
|000059c0| 2d 6f 66 66 73 65 74 29 | 29 20 30 20 70 20 31 20 |-offset)|) 0 p 1 |
|000059d0| 74 61 72 2d 68 65 61 64 | 65 72 2d 62 6c 6f 63 6b |tar-head|er-block|
|000059e0| 2d 73 75 6d 6d 61 72 69 | 7a 65 20 22 5c 6e 22 20 |-summari|ze "\n" |
|000059f0| 74 61 72 2d 68 65 61 64 | 65 72 2d 6f 66 66 73 65 |tar-head|er-offse|
|00005a00| 74 20 2d 35 31 33 20 73 | 74 61 72 74 20 64 61 74 |t -513 s|tart dat|
|00005a10| 61 2d 70 6f 73 69 74 69 | 6f 6e 20 6e 65 77 2d 64 |a-positi|on new-d|
|00005a20| 61 74 61 2d 73 74 72 69 | 6e 67 20 74 61 72 2d 68 |ata-stri|ng tar-h|
|00005a30| 65 61 64 65 72 2d 62 6c | 6f 63 6b 2d 63 68 65 63 |eader-bl|ock-chec|
|00005a40| 6b 73 75 6d 20 35 31 32 | 20 63 68 6b 20 74 61 72 |ksum 512| chk tar|
|00005a50| 2d 63 68 6b 2d 6f 66 66 | 73 65 74 20 38 20 66 6f |-chk-off|set 8 fo|
|00005a60| 72 6d 61 74 20 22 25 36 | 6f 22 20 33 32 20 36 20 |rmat "%6|o" 32 6 |
|00005a70| 74 61 72 2d 68 65 61 64 | 65 72 2d 62 6c 6f 63 6b |tar-head|er-block|
|00005a80| 2d 63 68 65 63 6b 2d 63 | 68 65 63 6b 73 75 6d 5d |-check-c|hecksum]|
|00005a90| 20 36 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 | 6]).(de|falias '|
|00005aa0| 74 61 72 2d 6f 63 74 61 | 6c 2d 74 69 6d 65 20 23 |tar-octa|l-time #|
|00005ab0| 5b 28 74 69 6d 65 76 61 | 6c 29 20 22 08 40 08 41 |[(timeva|l) ".@.A|
|00005ac0| 40 19 1a c3 c4 c5 5c 6e | c6 5c 22 c7 c5 c8 5c 6e |@.....\n|.\"...\n|
|00005ad0| c9 5c 22 ca 5c 22 c8 09 | cb 5c 22 cc 56 5c 22 c8 |.\".\"..|.\".V\".|
|00005ae0| 09 cd 5c 22 24 63 2a 87 | 22 20 5b 74 69 6d 65 76 |..\"$c*.|" [timev|
|00005af0| 61 6c 20 6c 6f 62 69 74 | 73 20 68 69 62 69 74 73 |al lobit|s hibits|
|00005b00| 20 66 6f 72 6d 61 74 20 | 22 25 30 35 6f 25 30 31 | format |"%05o%01|
|00005b10| 6f 25 30 35 6f 22 20 6c | 73 68 20 2d 32 20 6c 6f |o%05o" l|sh -2 lo|
|00005b20| 67 69 6f 72 20 6c 6f 67 | 61 6e 64 20 33 20 31 20 |gior log|and 3 1 |
|00005b30| 33 32 37 36 38 20 30 20 | 33 32 37 36 37 5d 20 38 |32768 0 |32767] 8|
|00005b40| 5d 29 0a 23 40 31 38 32 | 20 49 6e 20 74 61 72 20 |]).#@182| In tar |
|00005b50| 73 75 62 66 69 6c 65 20 | 6d 6f 64 65 2c 20 73 61 |subfile |mode, sa|
|00005b60| 76 65 20 74 68 69 73 20 | 62 75 66 66 65 72 20 69 |ve this |buffer i|
|00005b70| 6e 74 6f 20 69 74 73 20 | 70 61 72 65 6e 74 20 74 |nto its |parent t|
|00005b80| 61 72 2d 66 69 6c 65 20 | 62 75 66 66 65 72 2e 0a |ar-file |buffer..|
|00005b90| 54 68 69 73 20 64 6f 65 | 73 6e 27 74 20 77 72 69 |This doe|sn't wri|
|00005ba0| 74 65 20 61 6e 79 74 68 | 69 6e 67 20 74 6f 20 64 |te anyth|ing to d|
|00005bb0| 69 73 6b 3b 20 79 6f 75 | 20 6d 75 73 74 20 73 61 |isk; you| must sa|
|00005bc0| 76 65 20 74 68 65 20 70 | 61 72 65 6e 74 20 74 61 |ve the p|arent ta|
|00005bd0| 72 2d 66 69 6c 65 20 62 | 75 66 66 65 72 0a 74 6f |r-file b|uffer.to|
|00005be0| 20 6d 61 6b 65 20 79 6f | 75 72 20 63 68 61 6e 67 | make yo|ur chang|
|00005bf0| 65 73 20 70 65 72 6d 61 | 6e 65 6e 74 2e 1f 0a 28 |es perma|nent...(|
|00005c00| 64 65 66 61 6c 69 61 73 | 20 27 74 61 72 2d 73 75 |defalias| 'tar-su|
|00005c10| 62 66 69 6c 65 2d 73 61 | 76 65 2d 62 75 66 66 65 |bfile-sa|ve-buffe|
|00005c20| 72 20 23 5b 6e 69 6c 20 | 22 c0 c1 21 83 5c 6e 00 |r #[nil |"..!.\n.|
|00005c30| 09 84 0e 00 c2 c3 21 88 | c0 c4 21 83 18 00 5c 66 |......!.|..!...\f|
|00005c40| 84 1c 00 c2 c5 21 88 8a | 70 c6 20 5c 66 1e 07 1e |.....!..|p. \f...|
|00005c50| 08 1e 09 09 71 88 0e 07 | 41 1e 5c 6e 0e 07 40 1e |....q...|A.\n..@.|
|00005c60| 0b 0e 5c 6e cc 48 1e 0d | 0e 5c 6e ce 48 1e 0f d0 |..\n.H..|.\n.H...|
|00005c70| 89 0e 0f d1 5c 5c d2 5c | 22 d3 5c 22 1e 14 0e 07 |....\\.\|".\"....|
|00005c80| 0e 15 3e 89 1e 16 41 1e | 17 0e 16 84 60 00 c2 d8 |..>...A.|....`...|
|00005c90| 21 88 d9 8e 8a 7e 88 0e | 0b 0e 1a 5c 5c db 5c 5c |!....~..|...\\.\\|
|00005ca0| 89 1e 1c d0 89 0e 0f d1 | 5c 5c d2 5c 22 d3 5c 22 |........|\\.\".\"|
|00005cb0| 5c 5c 1e 1d 0e 1c 0e 1d | 7c 88 0e 1c 62 88 de 0e |\\......||...b...|
|00005cc0| 09 21 88 d0 89 0e 08 d1 | 5c 5c d2 5c 22 d3 5c 22 |.!......|\\.\".\"|
|00005cd0| 1e 1f 0e 1c 0e 08 5c 5c | 62 88 e0 0e 1f 0e 08 5a |......\\|b......Z|
|00005ce0| cc 5c 22 63 88 0e 5c 6e | ce 0e 08 49 88 0e 1f 0e |.\"c..\n|...I....|
|00005cf0| 14 5a 1e 21 0e 17 1e 5c | 22 0e 5c 22 83 d5 00 0e |.Z.!...\|".\"....|
|00005d00| 5c 22 40 89 1e 23 89 40 | 0e 21 5c 5c a0 88 0e 5c |\"@..#.@|.!\\...\|
|00005d10| 22 41 16 5c 22 29 82 ba | 00 2a 0e 1c e4 5a 89 1e |"A.\")..|.*...Z..|
|00005d20| 25 0e 26 5c 5c 62 88 60 | 60 e7 5c 5c 7c 88 e8 e9 |%.&\\b.`|`.\\|...|
|00005d30| 0e 08 5c 22 63 88 ea 63 | 88 0e 2b 83 0d 01 0e 25 |..\"c..c|..+....%|
|00005d40| 0e 2c 5c 5c 62 88 60 60 | e7 5c 5c 7c 88 ed ee 20 |.,\\b.``|.\\|... |
|00005d50| 21 63 88 ea 63 88 ef 0e | 25 0e 1c 7b 21 1e 30 0e |!c..c...|%..{!.0.|
|00005d60| 25 0e 31 5c 5c 62 88 60 | 60 f2 5c 5c 7c 88 e8 f3 |%.1\\b.`|`.\\|...|
|00005d70| 0e 30 5c 22 63 88 cc 63 | 88 ea 63 88 0e 5c 6e f4 |.0\"c..c|..c..\n.|
|00005d80| 0e 30 49 88 2a 0e 15 47 | 0e 16 47 5a 1e 35 f6 62 |.0I.*..G|..GZ.5.b|
|00005d90| 88 f7 0e 35 21 88 cc 79 | 88 60 f8 f9 20 0e 1a f8 |...5!..y|.`.. ...|
|00005da0| 93 1e 3a 1e 3b 1e 3c f6 | 79 88 60 16 3b fd fe 0e |..:.;.<.|y.`.;...|
|00005db0| 5c 6e ff 5c 22 81 40 00 | 5c 22 88 0e 3c 0e 3b 7c |\n.\".@.|\"..<.;||
|00005dc0| 88 81 41 00 0e 3a 21 16 | 1a 2e 07 81 42 00 20 88 |..A..:!.|....B. .|
|00005dd0| 2e 09 81 43 00 ff 21 88 | 0e 09 71 88 81 43 00 f8 |...C..!.|..q..C..|
|00005de0| 21 88 81 44 00 81 45 00 | 81 46 00 09 21 5c 22 88 |!..D..E.|.F..!\".|
|00005df0| 2c ff 87 22 20 5b 62 6f | 75 6e 64 70 20 74 61 72 |,.." [bo|undp tar|
|00005e00| 2d 73 75 70 65 72 69 6f | 72 2d 62 75 66 66 65 72 |-superio|r-buffer|
|00005e10| 20 65 72 72 6f 72 20 22 | 54 68 69 73 20 62 75 66 | error "|This buf|
|00005e20| 66 65 72 20 68 61 73 20 | 6e 6f 20 73 75 70 65 72 |fer has |no super|
|00005e30| 69 6f 72 20 74 61 72 20 | 66 69 6c 65 20 62 75 66 |ior tar |file buf|
|00005e40| 66 65 72 22 20 74 61 72 | 2d 73 75 70 65 72 69 6f |fer" tar|-superio|
|00005e50| 72 2d 64 65 73 63 72 69 | 70 74 6f 72 20 22 54 68 |r-descri|ptor "Th|
|00005e60| 69 73 20 62 75 66 66 65 | 72 20 64 6f 65 73 6e 27 |is buffe|r doesn'|
|00005e70| 74 20 68 61 76 65 20 61 | 6e 20 69 6e 64 65 78 20 |t have a|n index |
|00005e80| 69 6e 74 6f 20 69 74 73 | 20 73 75 70 65 72 69 6f |into its| superio|
|00005e90| 72 20 74 61 72 20 66 69 | 6c 65 21 22 20 62 75 66 |r tar fi|le!" buf|
|00005ea0| 66 65 72 2d 73 69 7a 65 | 20 64 65 73 63 72 69 70 |fer-size| descrip|
|00005eb0| 74 6f 72 20 73 75 62 66 | 69 6c 65 2d 73 69 7a 65 |tor subf|ile-size|
|00005ec0| 20 73 75 62 66 69 6c 65 | 20 74 6f 6b 65 6e 73 20 | subfile| tokens |
|00005ed0| 73 74 61 72 74 20 30 20 | 6e 61 6d 65 20 34 20 73 |start 0 |name 4 s|
|00005ee0| 69 7a 65 20 61 73 68 20 | 35 31 31 20 2d 39 20 39 |ize ash |511 -9 9|
|00005ef0| 20 73 69 7a 65 2d 70 61 | 64 20 74 61 72 2d 70 61 | size-pa|d tar-pa|
|00005f00| 72 73 65 2d 69 6e 66 6f | 20 68 65 61 64 20 66 6f |rse-info| head fo|
|00005f10| 6c 6c 6f 77 69 6e 67 2d | 64 65 73 63 73 20 22 43 |llowing-|descs "C|
|00005f20| 61 6e 27 74 20 66 69 6e | 64 20 74 68 69 73 20 74 |an't fin|d this t|
|00005f30| 61 72 20 66 69 6c 65 20 | 65 6e 74 72 79 20 69 6e |ar file |entry in|
|00005f40| 20 69 74 73 20 70 61 72 | 65 6e 74 20 74 61 72 20 | its par|ent tar |
|00005f50| 66 69 6c 65 21 22 20 28 | 28 6e 61 72 72 6f 77 2d |file!" (|(narrow-|
|00005f60| 74 6f 2d 72 65 67 69 6f | 6e 20 31 20 74 61 72 2d |to-regio|n 1 tar-|
|00005f70| 68 65 61 64 65 72 2d 6f | 66 66 73 65 74 29 29 20 |header-o|ffset)) |
|00005f80| 74 61 72 2d 68 65 61 64 | 65 72 2d 6f 66 66 73 65 |tar-head|er-offse|
|00005f90| 74 20 2d 31 20 64 61 74 | 61 2d 73 74 61 72 74 20 |t -1 dat|a-start |
|00005fa0| 64 61 74 61 2d 65 6e 64 | 20 69 6e 73 65 72 74 2d |data-end| insert-|
|00005fb0| 62 75 66 66 65 72 20 73 | 75 62 66 69 6c 65 2d 73 |buffer s|ubfile-s|
|00005fc0| 69 7a 65 2d 70 61 64 20 | 6d 61 6b 65 2d 73 74 72 |ize-pad |make-str|
|00005fd0| 69 6e 67 20 64 69 66 66 | 65 72 65 6e 63 65 20 5f |ing diff|erence _|
|00005fe0| 64 6f 6c 69 73 74 5f 69 | 74 65 72 61 74 6f 72 5f |dolist_i|terator_|
|00005ff0| 20 64 65 73 63 20 35 31 | 32 20 68 65 61 64 65 72 | desc 51|2 header|
|00006000| 2d 73 74 61 72 74 20 74 | 61 72 2d 73 69 7a 65 2d |-start t|ar-size-|
|00006010| 6f 66 66 73 65 74 20 31 | 32 20 66 6f 72 6d 61 74 |offset 1|2 format|
|00006020| 20 22 25 31 31 6f 22 20 | 33 32 20 74 61 72 2d 75 | "%11o" |32 tar-u|
|00006030| 70 64 61 74 65 2d 64 61 | 74 65 73 74 61 6d 70 20 |pdate-da|testamp |
|00006040| 74 61 72 2d 74 69 6d 65 | 2d 6f 66 66 73 65 74 20 |tar-time|-offset |
|00006050| 74 61 72 2d 6f 63 74 61 | 6c 2d 74 69 6d 65 20 63 |tar-octa|l-time c|
|00006060| 75 72 72 65 6e 74 2d 74 | 69 6d 65 20 74 61 72 2d |urrent-t|ime tar-|
|00006070| 68 65 61 64 65 72 2d 62 | 6c 6f 63 6b 2d 63 68 65 |header-b|lock-che|
|00006080| 63 6b 73 75 6d 20 63 68 | 6b 20 74 61 72 2d 63 68 |cksum ch|k tar-ch|
|00006090| 6b 2d 6f 66 66 73 65 74 | 20 38 20 22 25 36 6f 22 |k-offset| 8 "%6o"|
|000060a0| 20 36 20 70 6f 73 69 74 | 69 6f 6e 20 31 20 6e 65 | 6 posit|ion 1 ne|
|000060b0| 78 74 2d 6c 69 6e 65 20 | 6e 69 6c 20 6d 61 6b 65 |xt-line |nil make|
|000060c0| 2d 6d 61 72 6b 65 72 20 | 6d 20 61 66 74 65 72 20 |-marker |m after |
|000060d0| 70 20 69 6e 73 65 72 74 | 2d 62 65 66 6f 72 65 2d |p insert|-before-|
|000060e0| 6d 61 72 6b 65 72 73 20 | 74 61 72 2d 68 65 61 64 |markers |tar-head|
|000060f0| 65 72 2d 62 6c 6f 63 6b | 2d 73 75 6d 6d 61 72 69 |er-block|-summari|
|00006100| 7a 65 20 74 20 22 5c 6e | 22 20 6d 61 72 6b 65 72 |ze t "\n|" marker|
|00006110| 2d 70 6f 73 69 74 69 6f | 6e 20 74 61 72 2d 70 61 |-positio|n tar-pa|
|00006120| 64 2d 74 6f 2d 62 6c 6f | 63 6b 73 69 7a 65 20 73 |d-to-blo|cksize s|
|00006130| 65 74 2d 62 75 66 66 65 | 72 2d 6d 6f 64 69 66 69 |et-buffe|r-modifi|
|00006140| 65 64 2d 70 20 6d 65 73 | 73 61 67 65 20 22 53 61 |ed-p mes|sage "Sa|
|00006150| 76 65 64 20 69 6e 74 6f | 20 74 61 72 2d 62 75 66 |ved into| tar-buf|
|00006160| 66 65 72 20 60 25 73 27 | 2e 20 20 42 65 20 73 75 |fer `%s'|.  Be su|
|00006170| 72 65 20 74 6f 20 73 61 | 76 65 20 74 68 61 74 20 |re to sa|ve that |
|00006180| 62 75 66 66 65 72 21 22 | 20 62 75 66 66 65 72 2d |buffer!"| buffer-|
|00006190| 6e 61 6d 65 5d 20 36 20 | 28 23 24 20 2e 20 32 33 |name] 6 |(#$ . 23|
|000061a0| 33 36 39 29 20 6e 69 6c | 5d 29 0a 23 40 31 30 30 |369) nil|]).#@100|
|000061b0| 20 49 66 20 77 65 20 61 | 72 65 20 62 65 69 6e 67 | If we a|re being|
|000061c0| 20 61 6e 61 6c 20 61 62 | 6f 75 74 20 74 61 72 20 | anal ab|out tar |
|000061d0| 66 69 6c 65 20 62 6c 6f | 63 6b 73 69 7a 65 73 2c |file blo|cksizes,|
|000061e0| 20 66 69 78 20 75 70 20 | 74 68 65 20 63 75 72 72 | fix up |the curr|
|000061f0| 65 6e 74 20 62 75 66 66 | 65 72 2e 0a 4c 65 61 76 |ent buff|er..Leav|
|00006200| 65 73 20 74 68 65 20 72 | 65 67 69 6f 6e 20 77 69 |es the r|egion wi|
|00006210| 64 65 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |de...(de|falias '|
|00006220| 74 61 72 2d 70 61 64 2d | 74 6f 2d 62 6c 6f 63 6b |tar-pad-|to-block|
|00006230| 73 69 7a 65 20 23 5b 6e | 69 6c 20 22 08 85 7d 00 |size #[n|il "..}.|
|00006240| 7e 88 09 47 53 09 38 89 | 1a 40 1b 5c 6e 41 89 1c |~..GS.8.|.@.\nA..|
|00006250| c5 48 89 1e 06 83 1f 00 | c7 82 5c 22 00 5c 66 c8 |.H......|..\".\f.|
|00006260| 48 1e 09 0b 0e 09 5c 5c | 1e 5c 6e cb 08 cc 5c 22 |H.....\\|.\n...\"|
|00006270| 89 1e 0d 89 0e 5c 6e 53 | 0e 0d a5 5f 5c 5c 1e 0e |.....\nS|..._\\..|
|00006280| cf 1e 10 0e 11 86 45 00 | c7 0e 5c 6e 5c 5c 62 88 |......E.|..\n\\b.|
|00006290| d2 20 54 0e 11 86 53 00 | c7 0e 0e 5c 5c 56 83 6a |. T...S.|...\\V.j|
|000062a0| 00 0e 11 86 60 00 c7 0e | 0e 5c 5c d2 20 54 7c 82 |....`...|.\\. T|.|
|000062b0| 7b 00 d3 0e 11 86 71 00 | c7 0e 0e 5c 5c d2 20 54 |{.....q.|...\\. T|
|000062c0| 5a c7 5c 22 63 2e 09 87 | 22 20 5b 74 61 72 2d 61 |Z.\"c...|" [tar-a|
|000062d0| 6e 61 6c 2d 62 6c 6f 63 | 6b 73 69 7a 65 20 74 61 |nal-bloc|ksize ta|
|000062e0| 72 2d 70 61 72 73 65 2d | 69 6e 66 6f 20 6c 61 73 |r-parse-|info las|
|000062f0| 74 2d 64 65 73 63 20 73 | 74 61 72 74 20 74 6f 6b |t-desc s|tart tok|
|00006300| 65 6e 73 20 37 20 6c 69 | 6e 6b 2d 70 20 30 20 34 |ens 7 li|nk-p 0 4|
|00006310| 20 73 69 7a 65 20 64 61 | 74 61 2d 65 6e 64 20 61 | size da|ta-end a|
|00006320| 73 68 20 39 20 62 62 79 | 74 65 73 20 70 61 64 2d |sh 9 bby|tes pad-|
|00006330| 74 6f 20 74 20 69 6e 68 | 69 62 69 74 2d 72 65 61 |to t inh|ibit-rea|
|00006340| 64 2d 6f 6e 6c 79 20 74 | 61 72 2d 68 65 61 64 65 |d-only t|ar-heade|
|00006350| 72 2d 6f 66 66 73 65 74 | 20 62 75 66 66 65 72 2d |r-offset| buffer-|
|00006360| 73 69 7a 65 20 6d 61 6b | 65 2d 73 74 72 69 6e 67 |size mak|e-string|
|00006370| 5d 20 35 20 28 23 24 20 | 2e 20 32 35 30 30 39 29 |] 5 (#$ |. 25009)|
|00006380| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 74 61 |]).(defa|lias 'ta|
|00006390| 72 2d 6d 6f 64 65 2d 77 | 72 69 74 65 2d 66 69 6c |r-mode-w|rite-fil|
|000063a0| 65 20 23 5b 6e 69 6c 20 | 22 c0 8e 8a 7e 88 c1 5c |e #[nil |"...~..\|
|000063b0| 6e 64 0b c4 c5 25 88 c6 | 20 88 2a c5 87 22 20 5b |nd...%..| .*.." [|
|000063c0| 28 28 6e 61 72 72 6f 77 | 2d 74 6f 2d 72 65 67 69 |((narrow|-to-regi|
|000063d0| 6f 6e 20 31 20 74 61 72 | 2d 68 65 61 64 65 72 2d |on 1 tar|-header-|
|000063e0| 6f 66 66 73 65 74 29 29 | 20 77 72 69 74 65 2d 72 |offset))| write-r|
|000063f0| 65 67 69 6f 6e 20 74 61 | 72 2d 68 65 61 64 65 72 |egion ta|r-header|
+--------+-------------------------+-------------------------+--------+--------+